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Vorwort 


Immer wieder wurden wir gefragt: "Wann kommt denn endlich 
Band 5". Allein schon vom Umfang des Buches her werden Sie 
feststellen, daß wir Ihnen einiges bieten. Besonders das 
kommentierte Listing von Simon's Basic hat uns lange Zeit 
in Anspruch genommen. Über 16000 Byte von fremden Program¬ 
mierern auseinanderzupflücken und festzustellen, was wo 
gemacht wurde, ist kein leichtes Unterfangen. Wir hoffen. 
Sie sind mit dem Ergebnis zufrieden. 

Dieses Buch soll allen, die sich mit Simon's Basic be¬ 
schäftigen, eine Hilfe sein. Sowohl für den Anfänger, der 
die Basic-Unterstützung nur zur Vereinfachung bei der ei¬ 
genen Programmerstellung heranzieht, wie auch für den Pro¬ 
fi, der einige Unstimmigkeiten in den Maschinenprogrammen 
beseitigen möchte. 

Entgegen dem Handbuch haben wir eine andere Aufteilung ge¬ 
wählt. Zunächst werden alle Befehle noch einmal kurz be¬ 
sprochen, wobei wir auf Besonderheiten, die nicht im Hand¬ 
buch stehen hinweisen. Auch werden hier die Einsatzmög¬ 
lichkeiten der Befehle besprochen. In einem weiteren Teil 
werden die wohl am häufigsten gebrauchten Befehle aus 
Simon’s Basic an ausführlichen Beispielen näher erläutert 
(Grafik, Sprites, Musik). Den Abschluß bildet das kommen¬ 
tierte Assembler-Listing. Hingewiesen sei auch auf die Be¬ 
fehlsübersichten im Anhang, die Ihnen sicherlich gut als 
Nachschlagewerk dienen. 

Auch in diesem Buch möchten wir Sie wieder zu konstrukti¬ 
ver Kritik aufrufen. 

An dieser Stelle sei auch allen Mitarbeitern der Schneider 
Software GmbH gedankt, die uns bei der Erstellung des 
Manuskriptes geholfen haben. 


München, im Ouli 1984 

Werner Eberl 
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Einleitung 


Wie bereits itn Vorwort erwähnt, wollen wir uns mit diesem 
Buch an alle Qualifikationsschichten von Programmierern 
wenden, die mit Simon's Basic arbeiten. Die Kenntnis des 
Handbuches wird in diesem Buch vorausgesetzt, auch wenn 
wir an einigen Stellen Wiederholungen bringen, um Ihnen 
das Nachschlagen zu ersparen. 

Im ersten Kapitel bringen wir eine Übersicht über alle Be¬ 
fehle von Simon's Basic, wobei wir auch auf Besonderheiten 
eingehen, die nicht im Handbuch stehen. Das Kapitel ist 
nach den Einsatzbereichen der Befehle gegliedert. Beson¬ 
ders hinweisen wollen wir auf Kapitel 1.11, wo wir noch 
einige Befehle aufführen, die nicht in jedem Handbuch ste¬ 
hen. 

Das zweite Kapitel widmet sich voll und ganz den Grafikbe¬ 
fehlen, wobei wir zunächst auf normale Grafik-Befehle ein¬ 
gehen. Im weiteren besprechen wir dann die Zusammenarbeit 
von Texten und Grafikmodus sowie Sprites und Grafikmodus. 
Es folgen zwei Kapitel mit Balken- und Liniendiagrammen 
und ein Kapitel über Qoystick und Paddies. Zum Abschluß 
noch ein Kapitel über die Definition von neuen Zeichen¬ 
sätzen. 

Ganz den Sprites zugeordnet ist Kapitel drei, wobei hier 
das Beispiel aus Band 1 und Band 3 fortgesetzt wird. Die 
Gliederung entspricht dabei auch der Vorgehensweise bei 
der Erstellung eines Programmes mit Sprites. 

Zwei kurze Kapitel beschäftigen sich mit den Fehlermel¬ 
dungen - die nicht im Handbuch beschrieben sind - und der 
Musik, wobei wir hier auch auf dreistimmiges Spiel einge¬ 
hen. 

Den größten Umfang hat Kapitel sechs, wo wir das kommen¬ 
tierte Assembler-L isting abbilden. Zunächst dazu j edoch 
noch einige Vorbemerkungen und anschließend dazu die Ta¬ 
belle der verwendeten Namen und Symbole sowie eine Über¬ 
sicht der von Simon's Basic verwendeten Zero-Page-Adres- 
sen. 

Im Anhang befinden sich zunächst zwei Listings aus Band 3, 
um Ihnen die Vergleichsmöglichkeiten bei den entprechenden 
Kapiteln zu geben. Es folgen eine Übersicht über die ver- 
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wendeten Parametertypen und die Bildschirm-Codes, damit 
Sie die Listings auch richtig interpretieren können. Sehr 
wichtig für Sie als Nachschlagewerk sind die beiden Über¬ 
sichten in Anhang 5 und Anhang 6, die Ihnen einerseits 
alle Befehle mit ihren Parametern aufzeigen, andererseits 
die Fundorte im Handbuch und in dem vorliegenden Buch auf¬ 
zeigen, sowie eine Kurzbeschreibung darstellen. 

Der SECURE-Befeh 1 kann durch ein kurzes Basic-Programm 
aufgehoben werde, das wir Ihnen in Anhang 7 vorstellen. 
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1. Befehlsübersicht 


Im ersten Kapitel wollen wir die zusätzlichen Befehle des 
Simon's-Basic in ihrer Gesamtheit erläutern und Unstim¬ 
migkeiten gegenüber dem Handbuch aufzeigen. Simon's Basic 
bietet sehr viele wichtige Befehle. Jedoch wäre es bei 
manchen Befehlen wünschenswert, wenn sie mehr Möglichkei¬ 
ten zulassen würden. Z.B. ist ein RENUMBER ohne eine Ver¬ 
änderung der Sprungbefehle hinter GOTO und GOSUB kein aus¬ 
reichendes Hilfsmittel. 

Im Anhang ist eine Übersicht über alle Befehle mit einer 
Kurzbeschreibung ihrer Bedeutung dargestellt. Diese Über¬ 
sicht kann auch als 'Handzettel' für diejenigen dienen, 
die schon mit Simon's Basic arbeiten. Weiterhin enthält 
die Liste die Fundstellen aller Befehle im Handbuch und 
dem vorliegenden Buch (Seitenangabe). 

Simon's Basic enthält viele dringend notwendige Befehle, 
aber auch Befehle, die wohl nur in sehr seltenen Fällen 
benutzt werden. Auf jeden Fall ist Simon's Basic für den 
geübten Programmierer eine wertvolle Unterstützung. Beson¬ 
ders hervorzuheben sind hier die Befehle, die unter Pro¬ 
grammierhilfen zusammengestellt sind. Weiterhin einige Be¬ 
fehle zur Verarbeitung von Zeichenreihen wie z.B. PLACE. 
Für Programmierer, die auch andere Programmiersprachen wie 
z.B. PL/I oder PASCAL kennen, dürften besonders die Struk¬ 
turbefehle und die ERROR-Befehle interessant sein. 

Um die speziellen Möglichkeiten des Commodore 64 wie die 
hochauflösende Grafik, die Definition von Sprites und den 
Sound-Generator zu benutzen, sind natürlich die entspre¬ 
chenden Befehle notwendige Voraussetzung, wenn program¬ 
mieren nicht in Byte-Fummelei ausarten soll und keine an- 
eren Hilfsprogramme (z.B. in den Bänden 1, 3, 4 und 7) 
vor 1iegen. 

Zu den Befehlen, die wohl nur dann angewendet werden, wenn 
ein Programmierer auch alle Register des Computers ziehen 
will, gehören neben einigen Befehlen aus den anderen Be¬ 
reichen bestimmt auch alle Befehle der Bildschirmsteuer¬ 
ung. Alles in allem kann man jedoch sagen: der zusätzliche 
Befehlsvorrat von Simon's Basic läßt kaum Wünsche offen. 

Für den genauen Ablauf der Befehle sei auf das kommentier¬ 
te Listing verwiesen. 
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1.1 Programtnierhi Ifen 


AUTO 

Dieser Befehl ist versierten Programmierern von anderen 
Kits bestimmt schon hinlänglich bekannt. Er ermöglicht die 
zeilenweise Programmeditierung, ohne jeweils eine neue 
Zeilennummer eintippen zu müssen. Dies erspart hauptsäch¬ 
lich beim fließenden Eintippen eines Programms die Über¬ 
legung: Welches ist denn jetzt die nächste Zeile? 


GOLD 

Dieser Befehl ersetzt das Ein- und Ausschalten des Compu¬ 
ters, wenn ein Kaltstart durchgeführt werden soll. Intern 
werden im Rechner immer Zeiger verwaltet, die auf den An¬ 
fang des Programms, den Anfang des variablen Speichers, 
usw. zeigen (vgl. Band 4). Der Befehl GOLD bewirkt nichts 
anderes, als das Rücksetzen dieser Zeiger in den Ausgangs¬ 
zustand. Simon's Basic bleibt dabei eingeschaltet. 


DELAY 

Mit dem DELAY-Befehl kann die LIST-Geschwindigkeit einge¬ 
stellt werden. Daß hier 256 Möglichkeiten zur Verfügung 
stehen, ist mehr als ein Programmierer benötigt. Prinzi¬ 
piell wird sich jeder aus den Möglichkeiten ein oder zwei 
Geschwindigkeiten aussuchen, die seiner Lesegeschwindig¬ 
keit am Bildschirm entsprechen. Im Prinzip baut dieser 
Befehl in die Basic-List-Routine eine Warteschleife ein. 


DISAPA 

In Verbindung mit dem Befehl SECURE ist der Befehl DISAPA 
ein Mittel, um sein Programm gegen unbefugtes Auslisten zu 
schützen. Im Prinzip wäre es möglich das gesamte Programm 
mit diesem Befehl zu schützen, jedoch macht man sich 
selbst die Arbeit der Softwarepflege damit nur schwieri¬ 
ger. Sinnvoll wäre es, diesen Befehl in einem kurzen Pro¬ 
grammstück zu verwenden, welches einige andere Sicherungs¬ 
methoden enthält. 

Mit einem kurzen Basic-Programm (siehe Anhang) kann man 
jedoch den Schutz aufheben. 
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DISPLAY (bzw. KEYO) 

Eine reine Informationsanweisung, die aber sehr wichtig 
ist, da es sonst sehr schwierig wäre, die aktuelle Bele¬ 
gung der Funkt ionstasten festzustellen. 


DUMP 

Der Vorteil eines Interpreters liegt zu einem großen Teil 
darin, daß während eines Programmlaufes das Programm abge¬ 
brochen werden kann, und die Variablen abgefragt werden 
können. Dies erleichtert das Austesten gegenüber Compiler¬ 
versionen erheblich. Nun ist es recht mühsam, immer nach 
einem BREAK im Programm ein PRINT-Befehl für alle -oder 
auch nur die benötigten- Variablen einzugeben, wenn mehre¬ 
re sogenannte Break-Points gesetzt sind. Diese Arbeit er¬ 
leichtert der DUMP-Befehl. Allerdings werden Matrizen 
(Arrays) nicht angezeigt. 


FIND 

Ähnlich dem DUMP-Befehl erleichtert der FIND-Befehl das 
Testen sowie das Dokumentieren von Programmen. Besonders 
bei langen Listings ist es sehr mühsam, das gesamte Pro¬ 
gramm nach einer bestimmten Variablen zu durchsuchen. Da 
in Basic auch im Prinzip alle Variablen global sind, dürf¬ 
ten - außer temporären - den Variablen nicht mehrfache Be¬ 
deutungen zugewiesen werden. Mit dem FIND-Befehl ist es 
auch möglich, zu prüfen, ob eine Variable schon im Pro¬ 
gramm vorhanden ist oder nicht. Leider wird nur die Zei¬ 
lennummer und nicht die Zeile selbst angezeigt. 


KEY 

Da der Commodore Funktionstasten anbietet, ist es auch 
sinnvoll diese mit häufig verwendeten Basic-Befehlen (z.B. 
LIST) zu belegen. Das Löschen eines Key ist nur mit 
KEY(nr)," " (Leerzeichen) möglich. Ein Beispiel für die 
verkürzte Ausgabe auf Drucker ist nachfolgend aufgeführt 
(Ausgabe mit DISPLAY und HRDCPY). Dabei ist zur Ausgabe fl 
und anschließend f3 zu drücken. Für die verwendeten Be¬ 
fehle wurden deren Abkürzungen benutzt. Mit POKE $C646,10 
werden alle Key-Funktionen abgeschaltet. 

KEVl. "0ni.4:C\l •• L'. ‘’+CHR* ( 13) 

KEV2.< "" 

KEVai"P-l:CLOSEI"+CHR$<13) 

KEV4,"" 
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MERGE 

Der MERGE-Befehl ermöglicht zwar das Einkopieren von an¬ 
deren Programmen in ein Programm, das sich im Hauptspei¬ 
cher befindet, jedoch läßt dieser Befehl einige Möglich¬ 
keiten vermissen. Z.B. ist das Laden von bestimmten Pro¬ 
grammteilen eines Programms von Diskette nicht möglich. 
Dies ist besonders ein Nachteil, wenn aus anderen Program¬ 
men nur bestimmte Unterprogramme übernommen werden sollen. 
Außerdem muß die erste Zeilennummer des neuen Programmes 
eine höhere sein, als die letzte Zeilennnummer des ersten 
Programmes, was wohl selten der Fall ist. 


OLD 

Ab und zu kann es verkommen, daß versehentlich ein NEW- 
Befehl eingegeben wurde, und man feststellt, daß das Pro¬ 
gramm vorher nicht abgespeichert bzw. die Kontrol1-Lampe 
an der Floppy blinkt. Da durch den NEW-Befehl nur Zeiger 
intern umbesetzt werden, ist eigentlich noch nicht alles 
verloren. Aber es ist doch sehr mühsam das Programmende 
des Programms und die Werte für den Beginn der Variablen¬ 
tabelle usw. ausfindig zu machen. Dies erspart einem der 
OLD-Befehl, allerdings sind die Variablen trotzdem ver¬ 
loren. 


OPTION 

Eine Anwendungsmöglichkeit für diesen Befehl, der alle 
Befehle von Simon's-Basic hervorhebt, ist direkt nicht 
ersichtlich. Nützlich ist er vielleicht, wenn ein Programm 
in normales Basic umgeschrieben werden soll. Aber wenn 
jemand ein Programm, das mit Simon's Basic erstellt wurde, 
erhält, und dies umschreiben will, weil ihm die Program¬ 
mierunterstützung nicht zur Verfügung steht, der könnte 
diesen Befehl gebrauchen. Aber wer gibt schon seine Pro¬ 
gramme weiter mit einer Liste: hier sind die Befehle, die 
geändert werden müssen. 


PAGE 

Da der Bildschirm des Commodore 64 nur 40 Zeichen je Zeile 
hat, und das Auslisten der Programme doch etwas schneller 
geht als bei den Modellen der alten Serien, verschwinden 
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Programmstücke nach oben aus dem Bildschirm heraus schnel¬ 
ler, als man evetuell die STOP-Taste gefunden hat. Dies 
kann man einerseits mit Benutzung der CTRL-Taste beein¬ 
flussen, andererseits mit dem weiter oben beschriebenen 
DELAY-Befeh 1. Komfortabel ist es natürlich, wenn man vor 
Beginn einer jeden Programmier Sitzung den Befehl PAGE ver¬ 
wendet, womit ein Blättern in Vorwärtsrichtung seitenweise 
erzielt werden kann. 


RENUMBER 

Wo fast jedes auf dem Commodore 64 erstelltes Programm 
dynamisch wächst, wird mal hier eine Zeile eingefügt, mal 
wird dort eine Zeile herausgenommen. Um dieses ganze Zei- 
lennummernwirrwarr in den Griff zu bekommen ist natürlich 
der RENUMBER-Befehl sehr nützlich. In mühsame Kleinarbeit 
artet es jedoch aus, wenn Sie anschließend alle Sprung¬ 
adressen bei GOTO/GOSUB-Befehl von Hand ändern müssen. 
Hier wäre eine erweiterte Version wünschenswert. 


SECURE 

Dieser Befehl bewirkt nur das eigentliche Schützen, der 
durch den Befehl DISAPA gekennzeichneten Befehle. 


TRACE/RETRACE 

Zum Testen von Programmen - besonders bei sogenannten End¬ 
los- Sch leifen - leistet der TRACE-Befeh 1, mit dem die ak¬ 
tuelle Zeilennummer eines laufenden Programmes angezeigt 
wird, sehr nützliche Hilfe. Der TRACE-Befehl funktioniert 
nicht nach MEM. 


1.2 Strukturbefehle und ERROR-Befehle 


Diese Befehle lassen sich nicht im einzelnen genügend 
erklären, so daß wir diese im Zusammenhang besprechen 
wollen, für REPEAT, LOOP und EXEC existiert je ein Stack 
(Kellerspeicher), der bis zu fünf Ebenen erlaubt. 


Schleifen - bedingte Schleifen - bedingte Anweisungen 

Der erste Bereich der Strukturbefehle widmet sich den 
Schleifen und bedingten Anweisungen. Da das normale Basic 
nur IE...THEN-Befehle zuläßt ist es eine wesentliche Ver- 
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einfachung, wenn diese Befehle auch einen ELSE-Teil erhal¬ 
ten. Dadurch können aufwendige Konstruktionen mit GOTO-Be- 
fehlen vermieden werden, wie Bild 1.2.1 zeigt. Bild 1.2.2 
zeigt die Bedingungen bei einem IF-Statement, die sehr 
komplex sein können, so daß es sinnvoll ist diese Bedin¬ 
gung in einem weiteren Befehl ohne erneute Eingabe wieder 
prüfen zu können. Dies kann man mit dem Befehl RCOMP... 
ELSE, da immer noch nicht, wie in anderen Programmier¬ 
sprachen, eine blockweise Bearbeitung in verschiedenen 
Zeilen der THEN- /ELSE-Teile erfolgen kann. 

Interne Funktionsweise: beim Simon‘s-IF-Befehl wird ein 
Flag gesetzt, das bei RCOMP nur abgefragt wird. ELSE muß 
in der gleichen Zeile stehen. 

100 REt' OHNE IF .. . THEH. . . ELSE 
110 IF Fl=B THEH C^D : GOTO 130 
120 E=F 

130 REM FORTSETZUNG 
140 : 

150 : 

100 : 

170 REM MIT IF,..THEH...ELSE 
180 IF THEH C=D ELSE E=T- 
130 REM FORTSETZUNG 


Bild 1.2.1 : Programmierung für bedingte Anweisungen mit 

GOTO und mit IF...THEN...ELSE 


100 REM OHNE RCOMP...ELSE 

110 IF R=E FIND HCV OR F>G THEH PRINT "SEHR LRHGFR TEHT": 

120 IF R=B RHD XCV OR F>G THEH PR INT"DER NICHT IN EINE"; 

130 IF R=E RHD HCV OR F>G THEH PR INT "ZEILE PflSST. mm" 

140 IF R=E RHD HCV OR F>G THEH GOTO IRR 

150 PRINT "HOCH EIN TEKT" 

160 REM FORTSETZLIHG 
170 ; 

130 : 

130 : 

200 REM MIT RCOMP...ELSE 

210 IF R-E RHD H<V OR F>G THEH PRIHT"SEHR LRHGER TEKT", 
220 RCOMP PRIHT"DER NICHT IN EINE ZEILE PRS3T."; 

230 RCOMP PRINT" !!!!" : ELSE PRINT "HOCH EIN TEXT" 

240 REM FORTSETZUNG 


Bild 1.2.2 : Umfangreiche Bedingungen und ihre verkürzte 
Wiederholung 
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Eine weitere Verbesserung ist die Programmierung von 
Schleifen mit Bedingungsteilen. Das Beispiel im Handbuch 
ist relativ ungünstig gewählt, da dieses Beispiel durch 
eine einfache FOR...NEXT-Schleife ersetzt werden kann. 
Bild 1.2.3 zeigt einen sinnvollen Einsatz für den Befehl 
REPEAT. ..UNTIL. 

100 REM VERGLEICH ZWEIER ZRHLEH RLS REERUCHKRITERIUM 

110 REPERT 

120 ZH = ZN - ZR 

130 UHTIL RBSeZH-ZR) < 0.0000001 

Bild 1.2.3 : Beispiel für REPEAT...UNTIL 


Dabei wird die Schleife abgebrochen, wenn eine Bedingung 
erfüllt ist, die nicht in einer FOR...NEXT-Schleife pro¬ 
grammiert werden kann. Sicherlich ist es auch bei ein¬ 
fachen FOR...NEXT-Sch leifen möglich, diese Schleifen mit 
einer IF-Abfrage zu verlassen, jedoch wird das Programm 
durch die neuen Befehle viel übersichtlicher. Ähnliches 
leistet auch der Befehl LOOP...EXIT IF...END LOOP. 

Prozeduren 

Sehr schön handhaben läßt sich die Verwendung von Unter¬ 
programmen als Prozeduren mit Simon's Basic. Wie in block¬ 
orientierten Sprachen existiert auch ein Befehl PROC, der 
praktisch die Marke eines Unterprogrammes ist. Das Unter¬ 
programm (in diesem Fall spricht man von Prozedur) wird 
auch nicht mit RETURN beendet, sondern mit END PROC. Der 
Aufruf kann sowohl mit CALL als auch mit EXEC erfolgen, 
wobei CALL einem GOTO entspricht (eine unübliche Art des 
Aufrufs einer Prozedur, da Prozeduren normal unabhängig 
von ihrer Lage im Programm ausgeführt werden) und EXEC 
einem GOSUB. 

Wenn auch keine Blockvariablen im ursprünglichen Sinne 
zugelassen sind, kann man doch mit dem Befehl LOCAL Va¬ 
riableninhalte retten und später mit dem Befehl GLOBAL 
wieder auf diese Werte zurückgreifen. Dies erleichtert 
insbesondere die Programmierung großer komplexer Programme 
mit vielen Prozeduren. LOCAL darf nur einmal vor GLOBAL 
gegeben werden. 


Fehlerbehandlung 

Die Befehle ON ERROR, ERRN, ERRLN und OUT erlauben eine 
relativ komfortable Fehlerbehandlung. Die normale Fehler- 
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behandlung (Programmabbruch mit Anzeige des Fehlers) ist 
in den meisten Fällen nicht sehr benutzerfreundlich, da 
die Fehler per Programm abgefangen und durch eine entspre¬ 
chende Benutzermitteilung eventuell auch behoben werden 
könnten. Mit dem Befehl ON ERROR ist eine solche komfor¬ 
table Fehlerbehandlung in Abhängigkeit des aufgetretenen 
Fehlers (Liste im Handbuch) möglich. Achtung: NO ERROR 
schaltet nur ON ERROR ab, OUT gibt die Standard-Fehler¬ 
meldung aus. 


1.3 Grafik-Befehle 


Die Grafik-Befehle sollen nicht in ihrer alphabetischen 
Ordnung besprochen werden, sondern in ihrer natürlichen 
Anordnung, wie sie eventuell eingesetzt werden könnten. 
Die Grafik-Befehle sind für die Programmierung der hoch¬ 
auflösenden Grafik eine unabdingbare Voraussetzung. Dies 
heißt nicht, daß diese unbedingt dem Simon’s Basic ent¬ 
nommen werden müssen, jedoch sollten diese oder ähnliche 
Befehle unbedingt zur Programmierung herangezogen werden. 
In den Bänden 1, 3 und 7 wurden bereits solche Erweiter¬ 
ungen besprochen. 

Der Vorteil dieser Befehle liegt nicht nur in der ein¬ 
facheren Programmierung, sondern - und dieser Vorteil ist 
nicht unerheblich - auch in der schnelleren Bearbeitung. 
Bei komplizierten Grafiken, wo viele Punkte gesetzt werden 
müssen, wartet man nicht selten mehr als eine Stunde, bis 
diese Grafik erzeugt ist, wenn man normales Basic heran¬ 
zieht. Durch die Grafik-Befehle ergibt sich hier eine zig¬ 
fach höhere Geschwindigkeit. 


HIRES 

Mit diesem Befehl wird im Simon’s Basic die Grafik einge¬ 
schaltet und der Grafikspeicher gelöscht. Gleichzeitig 
werden für einfarbige Grafiken die Hintergrund- und Punkt¬ 
farbe festgelegt. Auf die verschiedenen Speicher des Com- 
modore 64 für die Farbgrafikdarstellung soll später einge¬ 
gangen werden. Näheres zur Grafikbearbeitung finden Sie in 
den Bänden 1, 3 und 7. 


MULTI 

Da der Befehl HIRES nur einfarbige Grafiken zuläßt, kann 
man mit dem Befehl MULTI drei Farben zur gleichzeitigen 
Darstellung auf dem Bildschirm bestimmen. Der Video-Con- 
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troller ist auf MCM (Multi-Color-Modus) umgeschaltet und 
die zulässigen X-Werte sind auf 159 begrenzt. Vergleiche 
auch Band 3 dieser Buchreihe. 


LO» COL 

Mit diesem Befehl sind noch weitere drei Farben für den 
Multi-Color-Modus zuschaltbar. Während des Programms kön¬ 
nen zwar jedoch immer nur drei Farben angesprochen werden, 
es erscheinen mit weiteren LOW COL-Befehlen alle Farben 
auf dem Bildschirm. LOW COL funktioniert auch im Einfar- 
ben-Modus; natürlich werden nur die ersten beiden Farben 
(Vordergrund und Hintergrund) umgestellt. 


HI COL 

Mit dem Befehl HI COL wird der LOW COL-Befehl rückgängig 
gemacht. Für sechs - oder mehr - Farben sind also die Be¬ 
fehle LOW COL und HI COL entsprechend im Programm zu 
setzen. 


PLOT 

Der Befehl PLOT dient zur Ausgabe eines einzigen Punktes 
auf dem Bildschirm. Daß dies kein einfaches Unterfangen 
ist, haben wir auch in Band 1 schon dargestellt. Hierzu 
trägt der Aufbau des Grafikspeichers erheblich bei. 

Die Statusvariable ST wird auf 8 gesetzt, wenn der zuläs¬ 
sige Bereich für Koordinaten überschritten wurde. Ist LOW 
COL aktiv, wird derjenige Zeichenbereich umgefärbt, der 
den Punkt enthält. 


LINE 

Der Befehl LINE zeichnet bei seiner Verwendung eine Linie 
mit den angegebenen Parametern auf den Bildschirm. 


REC, CIRCLE, ARC, ANGL, BLOCK 

Ähnlich dem Ziehen einer Linie werden durch diese Befehle 
ein Rechteck gezeichnet (REC), eine Ellipse (der Kreis ist 
ein Sonderfall der Ellipse / CIRCLE), Segmente (ARC), Ra¬ 
dien (ANGL) und ausgefüllte Rechtecke (BLOCK) gezeichnet. 
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PAINT 

Mit dem Befehl PAINT läßt sich eine vorgegebene Figur 
(Rahmen) mit einer Farbe ausfüllen. Bei entsprechend kom¬ 
plizierten Figuren (Konvex und konkav gebogene Randstücke, 
Aussparungen in der Mitte) ist das schnelle Ausfüllen 
eines vorgegebenen Rahmens im Basic auch ein topologisches 
Problem, was selbst einem einigermaßen geübten Programmie¬ 
rer auf Anhieb nicht gelingen wird. 


ROT, DRAW 

Mit dem Befehl DRAW kann eine Figur aus Linien zusammen¬ 
gesetzt werden, und mit dem Befehl ROT kann eine derartig 
gezeichnete Figur in verschiedenen Winkeln gedreht werden. 
Achtung: ROT muß immer vor DRAW gegeben werden. 


CSET 

Dieser Befehl hat gleich drei Funktionen: 

- Zeichensatz umschalten (von Grafik auf Groß/Klein¬ 
schrift bzw. umgekehrt); FIIRES ausschalten 

- Grafik zurückholen 

- Eine mehrfarbige Grafik zurückholen und dabei die¬ 
se Grafik mit anderen Farben versehen (in Verbin 
düng mit MULTI). 


CHAR, TEXT 

Diese beiden Befehle sind besonders wichtig, da im Modus 
der hochauflösenden Grafik keine Buchstaben, Zahlen und 
sonstige Zeichen ausgegeben werden können. CHAR und TEXT 
Befehle ermöglichen einerseits das Ausgeben einzelner Zei¬ 
chen (CHAR) sowie ganzer Textzeilen (TEXT), wobei die Po¬ 
sition, die vertikale Größe und die Farbe der Zeichen in 
dem Befehl selbst angewählt werden können. 


TEST 

der TEST-Befehl gibt an, welche Farbe (0,1,2,3) der ange¬ 
gebene Punkt besitzt. 


1.4 Sprite-Befehle 


Auch die Spr ite-Befehle wollen wir in der Reihenfolge 
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ihrer Verwendung besprechen. 


DESIGN 

Mit DESIGN wird ein - nach einem Klammeraffen - definier¬ 
tes Bild in ein Bit-Muster umgesetzt. Dies gilt für Spri¬ 
tes (Typ 0 und 1) und für neue Zeichen (Typ 2 und 3). 


(Klammeraffe) 

Wenn man den Speicher für ein Sprite zugeteilt hat, muß 
dieses als nächstes definiert werden. Dies kann man durch 
21 Zeilen, denen ein Klammeraffe vorangestellt ist und die 
jeweils eine Zeile des Sprites (12 oder 24 nebeneinander¬ 
liegende Punkte) enthalten. 


CMOB 

Dieser Befehl dient zum Definieren der Farben von Multi- 
Color-Sprite s. 


MOB SET 

Mit dem Befehl MOB SET werden die Eigenschaften eines 
Sprites festgelegt. In Simon's-Basic bedeutet die Abkür¬ 
zung MOB ‘Movable Object Block'. Bei diesen Eigenschaften 
sind u.a. enthalten, die Farbe des Sprites, die Priorität 
gegenüber dem Hintergrund und ob hochauflösende Grafik 
oder Multi-Color-Grafik gewünscht wird. 


MMOB, RLOCMOB 

Die Befehle MMOB und RLOCMOB dienen zur Darstellung des 
Sprites bzw. zur Bewegung des Sprites. Dazu können Start¬ 
end Zielposition des Sprites angegeben werden, sowie die 
Geschwindigkeit, mit der sich das SPRITE über den Bild¬ 
schirm bewegen soll. 


MOB OFF 

Hiermit wird ein Sprite wieder ausgeschaltet. 
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DETECT, CHECK 

Diese beiden Befehle dienen zur Vorbereitung einer Kolli¬ 
sionsprüfung und der Kollisionsprüfung selbst. Auch diese 
beiden Befehle sind in Basic durch einen einfachen PEEK- 
Befehl sehr schnell zu realisieren, sie ersparen einem 
aber die umständliche Suche, welches Byte im Video-Con- 
troller-Chip die entsprechende Aufgabe wahrnimmt, und das 
Auseinanderziehen der einzelnen Bits. 

Der CHECK-Befehl ist auch als Anweisung wie DETECT ein- 
setzbar. Der Parameter hinter DETECT (bzw. CHECK als 
Statement) bestimmt die Art der Abfrage (Sprite/Sprite 
oder Sprite/Hintergrund). Dementsprechend hat die dem 
DETECT-Befehl folgende Abfrage mit CHECK zwei oder einen 
Parameter, welche die Nummern der Sprite, die untersucht 
werden sollen, ergeben. Das Ergebnis 0 bedeutet Kollision, 
1 keine Kollision. 


1.5 Musik-Befehle 

Die Anwendung der Musik-Befehle und ihrer Eigenschaften 
werden am besten deutlich, wenn man sich das entsprechende 
Kapitel in diesem Buch ansieht. Aber auch hier einiges, 
was nicht im Handbuch steht. 

PLAY 

Der PLAY-Befehl wird über Interrupt ausgeführt. PLAY 1 
beinhaltet eine Warteschleife im Vordergrundprogramm. 

MUSIC 


Mögliche Elemente: 

Funktionstasten: Notendauer 

Angaben hinter 'SHIFT+CLR' (Herz in Revers am Bildschirm): 


■ SHIFT+CLR'1 
'SHIFT+CLR'2 
' SHIFT+CLR'3 
'SHIFT+CLR'G 
'SHIFT+CLR'T 

'SHIFT+CLR'C 
' SHIFT+CLR'R 


wählt erste Stimme aus 

wählt zweite Stimme aus 

wählt dritte Stimme aus 

löscht Key-Bit der aktiven Stimme 

SYNC-Bit enthält den entgegengesetzten 

Wert 

setzt alle Bits der Wellenform auf 0 
wiederholt das Stück; anhalten mit STOP 
oder PLAY 0 

mit irgend einem anderen Zeichen wird 
ignoriert 


'SHIFT+CLR' 
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Angesprochen werden können die 12 ‘normalen’ Noten: c, C, 
d, D, e, f, F, g, G, a, A, und b, wobei die großen Buch¬ 
staben (mit SHIFT) halbe Noten (durch # erzeugt, cis, dis, 
...) darstellen. Zusätzlich sind 7 Sondernoten mit der 
Commodore-Taste ansprechbar (in der Notensprache mit b auf 
der Notenlinie: des, es, ...): C=D, C=E, C=F, C=G, C=A, 
C=B, C=C. Jedes andere Zeichen ergibt eine Pause. Hinter 
dem Notenzeichen muß ein Wert für die Oktavangabe angege¬ 
ben werden. 


1.6 Befehle für Zeichenreihen 


Von den Befehlen für Zeichenreihen wollen wir hier nur 
zwei Befehle besonders hervorheben: 


PLACE 

Der Befehl PLACE wird immer da verwendet, wo eine kleinere 
Zeichenreihe in einer größeren gesucht wird. Dieser wich¬ 
tige Befehl fehlte bisher bei allen Commodore Basic-Gene- 
rationen. Sicherlich hat jeder Programmierer, der regel¬ 
mäßig Programme schreibt, sich für diesen Befehl schon ein 
eigenes Unterprogramm angefertigt. 


USE 

Mit dem Befehl USE wird den Programierern ein noch größe¬ 
rer Gefallen getan als mit dem Befehl PLACE. Wohl in fast 
jeden Programm müssen Zahlen formatiert ausgegeben werden. 
Bisher mußte dazu immer mühsam ein Basic-Unterprogramm ge¬ 
schrieben werden, das eine Zahl als Zeichenreihe behandelt 
und in eine kaufmännische Zahlendarstellung umwandelt. Was 
bei anderen Basic-Dialekten selbstverständlich ist, wurde 
für den Commodore-Rechner in Simon‘s-Basic realisiert. 


1.7 Befehle für Zahlen 


Die sechs auf Zahlen anwendbaren Befehle sind wohl für 
jeden Programmierer im mathematisch-technisch-wissen¬ 
schaftlichem Bereich unentbehrlich. Dabei ist der Befehl 
EXOR kein eigentlicher Zahlbefehl. Er bildet im Prinzip 
nur eine weitere logische Verknüpfung neben den schon 
vorhandenen AND, OR und NOT. Trick-Programmierer benutzen 
diesen Befehl um zwei Zahlen bzw. Bit-Muster zu vertau¬ 
schen, ohne Zuhilfenahme einer dritten Variablen, indem 
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sie diesen Befehl dreimal auf ein Zahlenpaar bzw. Bit-Mu- 
sterpaar anwenden. 

Die Befehle MOD, DIV und FRAG bilden die im mathematischen 
Gebrauch definierten Funktionen Modulo, Division ohne Rest 
und extrahieren von Nachkommastellen einer Dezimalzahl 
nach. 

Gerade bei den mannigfaltigen Adressen im Video-Controller 
des Commodore 64 wo einzelne Bits in Registern gesetzt 
oder gelöscht werden müssen, um bestimmte Tätigkeiten zu 
erreichen oder zu unterlassen ist eine Funktion die binäre 
Darstellungen in Dezimalzahlen umwandelt, wie der Befehl 
in Simon's-Basic unerläßlich. In ähnlicher Weise ist 
es der Befehl 'S'.für den Assembler-Programmierer. 


1.8 BlIdschiroisteuerung 


Wie zu Beginn bereits erwähnt, werden die Befehle zur 
Bildschirmsteuerung wahrscheinlich nur von Programmierern 
verwendet werden, die auch das letzte aus ihrem Rechner 
herausholen wollen. Simon's-Basic bietet dazu sehr viele 
Möglichkeiten, die Bildschirmausgabe interessant zu ge¬ 
stalten. 


FLASH, OFF, BFLASH, BFLASH 0 

Mit diesen vier Befehlen läßt sich das Blinken von Bild¬ 
schirmfarben und des Rahmens durchführen. Dazu wird aller¬ 
dings vorher notwendig sein, bei der Bildschirmausgabe 
entsprechend die Farben von Untergrund abzuheben, die 
später blinken sollen. Der FLASH-Befehl verlangsamt die 
eingebaute Uhr und das Basic-Programm wesentlich. FLASH 
ist auch ohne Geschwindigkeitsangabe möglich. 


FCHR, FCOL, FILL, INV 

Mit diesen vier Befehlen können bestimmte Bildschirmberei¬ 
che mit Zeichen und/oder Farben gefüllt bzw. invertiert 
werden. 


MOVE 

Mit dem MOVE-Befehl können Bildschirmbereiche dupliziert 
werden. Bei geschickter Bildschirmausgabe durch Cursor¬ 
steuerung läßt sich auf diese Art und Weise auch eine 
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fensterweise Ausgabe wie bei den Rechnern der 8000er Serie 
erreichen. In diesem Falle können sogar die Fenster in 
einen anderen Bereich kopiert werden. Viertelt man z.B. 
den Bildschirm, so kann man Viertel für die normale Bild¬ 
schirmausgabe verwenden, und der Anwender kann sich bei 
Bedarf diese Bildschirmausgabe in ein anderes Viertel 
kopieren um eventuell Datenvergleiche durchzuführen. 


LEFTB, RIGHTB, UPB, DOWNB, LEFTW, RIGHTW, UPW, DOWNW 

Simon's-Basic erlaubt weiterhin Bildschirmbereiche zu 
rollen. Dies kann analog zu den oben angeführten Befehlen 
nach rechts, links oder nach oben und unten geschehen. 
Sehr interessant ist z.B., daß auch Bereiche gerollt wer¬ 
den können, so daß der Bildschirm teilweise erhalten 
bleibt und in anderen Bereichen des Bildschirms fortlau¬ 
fend Daten angezeigt werden können. Das Bildschirmrollen 
kann sowohl zyklisch als auch mit Nachziehen von Leerzei¬ 
len bzw.-spalten erfolgen. 


SCRSV, SCRLD 

Bildschirminhalte im normalen Modus können mit diesen bei¬ 
den Befehlen auf Diskette gespeichert bzw. wieder geladen 
werden. Dies kann z.B. interessant sein, wenn auf dem 
Bildschirm Balkengrafiken dargestellt wurden, deren Daten 
erst mühsam errechnet werden mußten. Zur nochmaligen An¬ 
zeige eines solchen Diagramms braucht dann keine neue Be¬ 
rechnung durchgeführt sondern lediglich der Bildschirm¬ 
inhalt von Diskette geladen werden. Auch Farben werden 
gespeichert. Achtung: Datei 1 wird geschlossen. 


COPY, HRDCPY 

Mit den beiden Copy-Befehlen sind sowohl die Bildschirm¬ 
ausgabe von hochauflösender Grafik (COPY) als auch eines 
Bildschirmes im Normalmodus (HRDCPY) auf einen Drucker 
möglich. Dies sind zwei relevante Befehle, besonders das 
Hardcopy der hochauflösenden Grafik, da dies eine relativ 
umständliche Druckerprogrammierung erfordern würde. Auch 
hier wird die Datei 1 geschlossen. 


1.9 Befehle für LIGHT-PEN, JOYSTICK und PADDLE 


Mit den vier Befehlen zur Abfrage des Status der obenge¬ 
nannten externen Hilfsgeräte lassen sich sicherlich sehr 
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einfach Spiele programmieren. Statt umständlichen PEEK-Ab- 
fragen im Programm können die Werte der externen Geräte 
durch diese Befehle sofort erfragt und somit auch gleich 
weiter verarbeitet werden. Beachten Sie bitte, daß nur ein 
Joystick und ein Paddle-Paar verwendbar ist. PENY ist nur 
sinnvoll nach PENX. 


1.10 Sonstige Befehle 


AT 

ermöglicht die Positionierung des Cursors. Auch möglich 
ist: A$=AT(Spalte,Zeile)B$, wobei die Positionierung schon 
während der Zuweisung erfolgt. 


DESIGN2 bzw. DESIGN3 

Ähnlich den Sprites können auch die Zeichen des normalen 
Zeichensatzes neu definiert werden. Mit dem Befehl DESIGN 
wird zunächst festgelegt welches Zeichen erstellt werden 
soll, anschließend müssen acht Zeilen folgen, die die Form 
des Zeichen beschreiben (erstes Zeichen ein Klammeraffe). 
Mit DESIGNS werden Multi-Colour-Zeichen erstellt. Der 
Multi-Colour-Modus wird dann durch POKE GRAPHICS+22, 
PEEK(GRAPHICS+22) OR 16 eingeschaltet. 


DIR, DISK 

Mit dem DISK-Befehl können Befehle an die Floppystation 
unmittelbar übergeben werden, ohne OPEN, CLOSE und die 
entsprechenden Fehlerkanäle anzugeben. Mit DIR kann das 
Inhaltsverzeichnis einer Diskette ausgegeben werden, wobei 
auch Ookerzeichen zugelassen sind, so daß ein sogenanntes 
Pattern-Matching möglich ist. Dies bedeutet , daß man sich 
Programme oder Dateien, die ganz bestimmte Buchstabenkom¬ 
binationen enthalten, auszugsweise auslisten lassen kann. 
Achtung: Datei 1 wird geschlossen. 


FETCH 

Der FETCH-Befehl ermöglicht es, kontrollierte Eingaben im 
Programm zuzulassen, ohne daß aufwendige INPUT-Routinen 
mit dem GET-Befehl geschrieben werden müssen. 
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INKEY 

Sehr wichtig ist auch der INKEY-Befehl, da er abfragt, ob 
eine Funktiontaste gedrückt ist. Dies ermöglicht eine 
schnelle Bearbeitung durch den Anwender, da nicht immer 
RETURN nach einer Eingabe gedrückt werden muß, bzw. eine 
umständliche Überprüfung über den GET-Befehl entfällt. 


LIN 

Im Gegensatz zu AT zeigt LIN nur die aktuelle Cursorzeile 
an. 


MEM 

Für Anwender, die ihren Zeichensatz selbst programmieren 
bzw. diverse Zeichen verändern wollen, ist der MEM-Befehl 
interessant, da er ohne komplizierte USR-Funktion den ROM- 
Bereich des Zeichensatzes in einen RAM-Bereich verlegt. 
MEM bietet außerdem die Möglichkeit einen zweiten Bild¬ 
schirmspeicher anzulegen. Mit NRM kann der alte Bildschirm 
zurückgeholt werden. 


PAUSE 

Sicherlich jeder Programmierer hat in seinem Programm 
irgendwo eine 'leere' FOR...NEXT-Schleife, um eine Anzeige 
eine gewisse Zeit am Bildschirm aufrecht zu erhalten. 
Einerseits ist das ein Programmiertrick, der die Dokumen¬ 
tation des Programms nicht wesentlich erleichtert, ande¬ 
rerseits ist in diesen Schleifen nur eine ungenaue Zeit¬ 
angabe möglich. Mittels des PAUSE-Befeh 1s kann man nun das 
Programm für eine genaue definierte Anzahl von Sekunden 
anhalten und sogar zusätzlich noch eine Meldung drucken. 
Während der Pause kann das Programm nicht mit der STOP- 
Taste abgebrochen werden. Einen PAUSE-Befeh 1, der dies 
ermöglicht, haben wir in Band 1 vorgestellt. 


RESET 

Der RESET-Befehl ist nicht zu verwechseln mit irgendwel¬ 
chen RESET-Tasten und/oder -Schaltern. In Simon's-Basic 
dient er zum Setzen eines Zeigers auf eine beliebige DATA- 
Zeile. Dies wird dann benötigt, wenn in einem Programm 
mehrere verschiedene DATA-Blöcke verkommen, die teilweise 
oder ganz neu eingelesen werden müssen. Dies vereinfacht 
der RESET-Befehl. 
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1.11 Befehle, die nicht in Handbuch stehen 


BCKGNDS 

Syntax: BCKGNDS fl,f2,f3,f4 

Semantik: BCKGNDS legt die Hintergrundfarben fest und 

schaltet auf ECM (Extended-Color-Mode), dabei 
werden von jedem Zeichen zwei Bit vom ASCII-Code 
abgezweigt: es steht somit nicht mehr der ge¬ 
samte Zeichensatz zur Verfügung. Die Aufteilung 
der Farben: 

- fl: normale Hintergrundfarbe 

- f2: Hintergrundfarbe der Zeichen mit 

SHIFT-Taste 

- f3: Hintergrundfarbe der REVERS-Zeichen 

und des Cursors (nicht der Schrift¬ 
farbe ) 

- f4: Hintergrundfarbe für Zeichen mit 

SHIFT-Taste im REVERS-Mode 

NRM macht BCKGNDS rückgängig. 


COLOUR 

Syntax: COLOUR rf,hf 

rf: Rahmenfarbe 
hf: Hintergrundfarbe 

Semantik: COLOUR setzt Rahmen- und Hintergrundfarbe und 

erspart somit das lästige POKE 53280,rf:P0KE53281,hf. 


DISABLE 

Syntax: DISABLE 

Semantik: Setzt ON KEY-Anweisung außer Kraft. 

GRAPHICS 

Syntax: GRAPHICS 

Semantik: -Liefert Konstante $D000 = 53248; Adresse VIC 
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NRM 

Syntax: 
Semantik 

ON KEY 
Syntax: 
Semantik 


RESUME 
Syntax: 
Semantik 

SOUND 
Syntax: 
Semantik 


NRM 

: NRM macht MEM und BCKGNDS rückgängig. 


ON KEY Stringausdruck, diverse Anweisungen 

Wird eine Taste gedrückt, die im Stringausdruck 
des ON KEY-Befehls enthalten ist, so wird in den 
Anweisungsteil verzweigt. Die Tastatur wird da¬ 
bei vor jedem Befehl abgefragt. Ein unbedingter 
Sprung erfolgt, wenn im Stringausdruck eine 
'eckige Klammer zu' ($5D) enthalten ist. 


RESUME 

: RESUME funktioniert nur nach ON KEY. Bei RESUME 
wird das Programm beim ursprünglichen Befehl 
fortgesetzt. RESUME entspricht somit dem RETURN 
bei GOSUB. 


SOUND 

: Liefert Konstante $D400 = 53972; Adresse SID 
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2. Grafikbefehle an Beispielen 


In diesem Kapitel wollen wir uns ausschließlich den Gra¬ 
fikbefehlen von Simon's Basic widmen. Zunächst wollen wir 
nur auf die eigentlichen Grafikbefehle eingehen und im 
zweiten Unterkapitel Text und Grafik mischen. Den Abschluß 
von Kapitel 2 bilden noch das umgeschriebene Programm für 
Balkendiagramme aus Band 3, um Ihnen eine Vergleichsmög¬ 
lichkeit zwischen Simon's Basic und den in den anderen 
Büchern vorgestellten Grafikbefehlen zu geben, ein Pro¬ 
gramm für Liniendiagramme sowie einiges zum Thema Joystick 
und Paddies. 


2.1 Beispiele mit Blöcken, Rechtecken und Kreisen 


Im folgenden wollen wir einige kurze Beispielprogramme be¬ 
sprechen, die optisch ansprechende Grafiken auf den Bild¬ 
schirm bringen. Neben dem Programm wird in der Regel auch 
ein Hardcopy abgebildet, das mit dem Befehl COPY von 
Simon's Basic erstellt wurde. Fangen wir mit einem ein¬ 
fachen Beispiel für Rechtecke an. 


Rechteck 


120 F=1 

130 POKE53280^0 
140 P0KE53281.e 
150 HIRE30.0 
1S0 MULTI 1/7.8 
200 FORI=0TÜ2#iTSTEP.2 
210 X1*30*3INCI> 

220 Vl*30*COS(Dt7 
230 X2-X1+30 
240 V2«=Vl+30 

250 REC Xl+50/V1+80/X2..V2/F 

260 F“F+1 

270 IFF=4THENF»1 

280 HEXT 

500 PfilJSE5 

998 PRINT"S 

999 LIST 
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Bild 2.1-1 : BiIdschirmcopy von RECHTECK 

Zunächst wird die Variable F, die später für die Farbge¬ 
bung im Grafikbefehl zuständig ist, initialisiert, dann 
werden Bildschirmhintergrundfarbe und Rahmenfarbe auf 
schwarz gesetzt. Darauf wird die Grafik mit dem HIRES-Be- 
fehl eingeschaltet, wobei hier Hintergrund und Zeichen¬ 
farbe gleich gewählt wurden, da anschließend mit dem 
Befehl MULTI die Farben (weiß, gelb und orange) festgelegt 
werden. Die Reihenfolge der Farbnummern ist wichtig, weil 
nachher in den Grafikbefehlen (über die Hilfsvariable F) 
die Ordnungszahl der Farbe im MULTI-Befehl angegeben wird. 

Bevor wir jedoch im Programm weitergehen, betrachten Sie 
zunächst Bild 2.1-1. Hier noch etwas zu dem COPY-Befehl. 
Offensichtlich gibt dieser Befehl das im RAM abgelegte 
Bitmuster auf dem Drucker aus. Dadurch ist es z.B. auch 
möglich (wenn auch nur sehr schwer) dreifarbige Grafiken 
auf dem Drucker zu erkennen. Die Grafiken werden wie im 
internen Speicher auch, mit zwei ausgegebenen Punkten pro 
Bildpunkt verwertet. Bei den ersten beiden Farben kann man 
jedoch sehr schlecht unterscheiden, ob jeweils der rechte 
Punkt neben einem 'Leerpunkt' ausgegeben ist oder der lin¬ 
ke Punkt. 

Wenn Sie sich nun die Grafik anschauen, so werden Sie 
feststellen, daß die oberen linken Punkte der Rechtecke 
die Form einer nach innen eingedrückten Raute beschreiben. 
Dies kommt durch die Verwendung der mit sieben potenzier¬ 
ten Cosinus-Funktion. Wenn Sie das Bild weiter betrachten, 
werden Sie feststellen, daß von oben nach unten die Recht¬ 
ecke immer höher und von links nach rechts immer breiter 
werden. 

In der Schleife ab Zeile 200 bis Zeile 280 werden die 
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Daten für die Rechtecke errechnet. Zunächst werden in XI 
und Y1 die Eckpunkte der oberen linke Ecke festgelegt und 
in X2 und Y2 anschließend die Seitenlangen des Rechteckes. 
In Simon's Basic ist die Ausgabe von Rechtecken mit der 
Ausgabe von Blöcken nicht direkt vergleichbar, da bei 
Blöcken jeweils die oberen linken und unteren rechten 
Ecken angegeben werden, bei Rechtecken aber die Seiten¬ 
längen. 

Innerhalb der Schleife wird auch die Farbvariable jeweils 
um eine Farbe weiter gesetzt, bzw. auf die erste Farbe zu¬ 
rückgesetzt, wenn alle Farben durchlaufen wurden (Zeile 
260 und 270). 

Den Abschluß des Programms bildet ein Befehl, der die Pro¬ 
grammausführung um fünf Sekunden anhält (Zeile 500), ein 
Befehl, der die Ausgabefarbe am Bildschirm auf weiß schal¬ 
tet und zum Abschluß ein Befehl, daß das Programm wieder 
auslistet. Diese drei letzten Befehle dienen zum Aufrecht¬ 
erhalten der Grafik für fünf Sekunden (der Parameter kann 
von Ihnen beliebig geändert werden) und zur Ausgabe des 
Programmlistings falls Sie andere Programme, z.B. inner¬ 
halb der Schleife, ändern wollen. Diese Befehle sind an 
die meisten der folgenden Beispiele angehängt und sollen 
Ihnen das herumprobieren etwas erleichtern. Wir empfehlen 
das Ausprobieren verschiedener Parameter, damit Sie ein 
besseres Gefühl zwischen den doch recht abstrakten Para¬ 
metern und der daraus resultierenden Grafik bekommen. 


Block 


1 000 

INPIJT"VÜH 

.1111" JV 

1010 

IHPIJT"BIS 

. Illl" ; B 

1020 

IHPUT"SCHRITTWEITE 

. Illl"; 3 

1030 

INPUT ■•HINTERGRUND 

. Illl" j H 

1040 

INPUT'-FRRBE 1 

.l■■r.Fa> 

1050 

INPUT"FARBE 2 

.l■■^;F<2> 

1060 

INPUT"FARBE 3 

.I■■I".F(3) 

1070 

P0KE53281.H 


10S0 

PCiKE53280,H 


1090 

HIRES7.7 


1100 

MULTI F<l>.F'::2).Fi3) 


1110 

F=1 


1120 

F0RI=‘'/T0BSTEPS 


1130 

BLOCK I. 1.2*1..2*1,. 1 


1140 

F=F+1 


1150 

IFFa4THENF=l 


1160 

BLOCK 150-2*1.1.150- 

1.2*1.3 

1170 

F=F+1 
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11 ay lht-=4THENF=l 

1130 BLOCK 150-2*1.100-1.150-1.100+1,2 

1200 F=F+1 

1210 IFF=4THEHF=1 

1220 BLOCK 150-2*1.200-2*1.150-1.200-1.1 

1230 F=F+1 

1240 IFF=4THENF=»1 

1250 BLOCK. 1.100-1.2*1.100+1.2 

1260 F=F+1 

1270 IFF=4THENFol 

1280 BLOCK 1.200-2*1.2*1.200-1.3 

1290 F=F+1 

1300 IFF=4THEHF=1 

1310 HEXT 

1320 PfiUSElS 

1330 LIST 



Bild 2.1-2 : BiIdschirmcopy von BLOCK 
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Eine andere Möglichkeit, ein Programm mit verschiedenen 
Parametern öfter laufen zu lassen, wurde in diesem Bei¬ 
spiel gewählt. Hier werden die Parameter für die Ausgabe 
zunächst vom Bildschirm erfragt. Ob Sie nun jeweils Ihr 
Programm ändern wollen oder für jeden Testdurchlauf alle 
Variablen neu eingeben wollen, bleibt Ihnen überlassen. 

Wie bereits erwähnt, wird in den Zeilen 1000 bis 1060 die 
nötige Information vom Bildschirm erfragt. Zunächt für die 
FOR...NEXT-Schleife die Start- und Endvariable sowie die 
Schrittweite, anschließend die Farben. Das Einschalten der 
Grafik und Umschalten auf hochauflösende Grafik geschieht 
genau wie im letzten Beispielprogramm. In diesem Beispiel 
hier wird deutlich, daß auch bei den Befehlen HIRES und 
MULTI Variablen statt konstanten Werten zwischen 0 und 15 
auftreten dürfen. 

Die Bestimmung der Farben läuft in diesem Programm ohne 
Auswirkungen mit, falls Sie die vorgegebenen Werte auch 
noch variabel halten wollen. 

Aufgrund der Zahlwerte her müsste bei dem BLOCK-Befehl 
jeweils ein Quadrat erscheinen. Da in der hochauflösenden 
Grafik aber jeweils zwei benachbarte Punkte gleichzeitig 
angesprochen werden, ergibt sich durch die vorgegebene 
Programmierung ein Rechteck, was doppelt so breit wie hoch 
ist. 

Die abgebildete Grafik wurde mit folgenden Parametern 
erstel It: 


- Anfangswert für Schleife: 

- Endwert für Schleife: 

- Schrittweite der Schleife: 

- Farben: 



7, 8 


Für die Ausgabe mit COPY ist natürlich die eingegebene 
Farbe nicht relavant. 


Farbwechsel 


i000 PÜKE53280> 0 

1010 PÜKE53281.0 

1020 HIRES 0.0 

1030 MULTI 6.7.7 

1040 F0RX=1T075STEP3 

1050 REC K.X. 150--2*X.200-2*K. 1 

1060 REC K+1. K+1. 14S-2i4‘-X. 198-2i4‘-X. 2 

1070 REC X+2. X+2. 146-2#X. 196-2if:X. 3 
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lyyy hlki 
1090 PfilJSEl 
1100 FÜRI=50TO1STEP-1 
1110 MULTI 7.7.6 
1120 F0R.J=1TÜI :HEXT 
1130 MULTI 7.6.7 
1140 F0RJ=1T0I:HEXT 
1150 MULTI 6.7.7 
1160 F0RJ=1T0I:HEXT 
1170 WEXT 
1180 PRUSE10 
1190 PRIHT";il 
1200 LIST 



Bild 2.1-3 : BiIdschirmcopy von FLUCHTREC 

Im nächsten Beispielprogramm werden in einer Schleife je¬ 
weils drei Rechtecke ineinander gezeichnet, wovon zwei 
blau sind und eines gelb ist. Nachdem der Bildschirm ge¬ 
füllt ist, werden über dem MULTI-Befehl jeweils Farbwech¬ 
sel durchgeführt. Dieses Programm zeigt einerseits, daß 
zwei oder auch drei Farben im MULTI-Befehl gleich sein 
können. Obwohl z.B. bei den blaugezeichneten Rechtecken am 
Bildschirm kein Unterschied besteht, werden sie intern 
anders dargestellt. Diesen Umstand machen wir uns zu 
Nutze, indem wir in einer Schleife der ersten Farbe im 
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MULTI-Befehl die zweite Farbe zuordnen, der zweiten Farbe 
die dritte, und der dritten wieder die erste Farbe. In 
dieser Weise lassen wir in einer Schleife die Farben 'ro¬ 
tieren*. Etwas gestört durch die Bildschirmsynchronisation 
ergibt sich jedoch beim Durchlauf durch letztere Schleife 
der Anschein als würde man einen Gang entlanglaufen. Dies 
geschieht, indem man - optisch gesehen - zunächst dem 
Rechteck neben dem derzeitigen gelben auch Gelb zuordnet 
und das gelbe Rechteck dann blau einfärbt. Dadurch bekom¬ 
men auch die beiden nebeneinanderliegenden blauen Recht¬ 
ecke einen Sinn, da ja im Kreis getauscht wird. 


Kreise, Ellipsen 

Den gleichen Effekt haben wir auch im folgenden Programm- 
listing verwendet: 

1000 POKE53280.0 

1010 POKE53281>0 

1020 HIRES 0.0 

1030 MULTI 6.7.7 

1040 FORX=75TO10STEP-6 

1050 flRC 75.100.0.360.10.X.X.1 

1060 flRC 75.100.0.360.11.X-l.X-1.2 

1070 FlRC 75. 100.0.360. 12.X-2.X-2.3 

1080 HEXT 

1090 PAUSE 1 

1100 FORI=100TO10STEP-1 
1110 MULTI 7.7.6 
1120 F0RJ=1T0I:HEXT 
1130 MULTI 7.6.7 
1140 F0R.J=1T0I :NEXT 
1150 MULTI 6.7.7 
1160 FORT»1TO I:HEXT 
1170 HEXT 
1180 PAUSE10 
1190 PRIHT"fil 
1200 LIST 


Lassen Sie sich nicht durch die vielen Parameter beim ARC- 
Befehl abschrecken. Dem Befehl folgen zunächst die beiden 
Parameter für X-, und Y-Koordinate des imaginären Kreis-/ 
Ellipsenmittelpunktes. Anschließend wird der Kreisaus¬ 
schnitt angegeben, der gezeichnet werden soll, gefolgt von 
der Genauigkeit der Auflösung. Geben Sie z.B. 90 als 
Schrittweite der Winkel an, so werden auf der Spitze ste¬ 
hende Quadrate/Rechtecke gezeichnet. Achtecke erhalten Sie 
mit Schrittweite 45. Oe nach Größe der Figur dürften 
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Schrittweiten zwischen 5 und 10 für eine relativ runde 
Form durchaus ausreichend sein. Als weiteres folgen die 
beiden Parameter zur Bestimmung des Radius. Wählen Sie 
beide Radien gleich, so ergibt sich in normaler Grafik ein 
Kreis. Bei mehrfarbiger Grafik darf der X-Wert nur die 
Hälfte vom Y-Wert betragen, wenn Sie einen Kreis zeichnen 
wollen. Mathematisch gesehen ist der Kreis eine Sonderform 
der Ellipse. Wie bei jedem Grafikbefehl gibt der letzte 
Parameter die Farbe an. 



Bild 2.1-4 : BiIdschirmcopy von FLUCHTELL 


Die leeren FOR...NEXT-Schleifen in den Zeilen 1120, 1140 
und 1160 können Sie auch durch einen PAUSE-befehl mit ent¬ 
sprechendem Parameter ersetzen. Durch die Abhängigkeit des 
Schleifenendekriteriums von der umgebenden Schleife und 
durch die Tatsache bedingt, daß die umgebende Schleife 
'rückwärts' läuft, ergibt sich so eine immer schneller 
werdende Farbumsetzung, was optisch den Eindruck erweckt, 
daß die Form immer schnell auf einen zufließt. 


Linie 

Eine dritte Möglichkeit mit Grafikprogrammen zu probieren 
ist die Vorgabe von Variablen am Programmanfang, so daß 
man einzelne Variablen ändern kann, ohne jeweils alle Va¬ 
riablen über den Bildschirm eingeben zu müssen bzw. man an 
den einzelnen Programmstellen nicht immer alle Variablen 
austauschen braucht. Diese Form haben wir in den nächsten 
beiden Programmen realisiert. 
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1000 HIRE36>? 

1010 SU>:10 

1020 V=80 

1030 Bl»120 

1040 B2-140 

1050 FORI-VTOBISTEPSW 

1060 LINE 0^0.320.1.1 

1070 NEXT 

1080 F0RI*VT0B2STEPSW 
1090 LINE 0.0.1.200.1 
1100 NEXT 

1110 FORI=VTOBlSTEPSW 
1120 LINE 320.200.0.1.1 
1130 NEXT 

1140 F0RI«»VT0B2STEPSW 1200 F0RI«VT0B2STEPSW 

1150 LINE 320.200.1.0.1 1210 LINE 0.200.1.0.1 

1160 NEXT 1220 NEXT 

1170 FORIeVTOBlSTEPSW 1230 FORI=»VTOBlSTEPSW 

1180 LINE 0.200.320.1.1 1240 LINE 320.0.0.1.1 

1190 NEXT 1250 NEXT 

1260 F0RI=VT0B2STEPSW 
1270 LINE 320.0.1.200.1 
1280 NEXT 
1290 PflUSES 
1300 LIST 



Bild 2.1-5 : BiIdschirmcopy von LINE 
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Zunächst stellen wir aus Linien eine einfache Grafik dar, 
wie sie auch abgebildet ist. Im Prinzip werden immer von 
einem Eckpunkt weg einige Linien zu den gegenüberliegenden 
Rändern gezogen. Daß die Programme für den Mehrfarbenmodus 
nicht sehr stark geändert werden müssen, zeigt das fol¬ 
gende Beispiel, das ähnliches im Mehrfarbenmodus bewirkt: 


1000 HIRES6>7 

1010 MULTI 6;8;0 

1020 814=20 

1030 V=60 

1040 Bl=140 

1050 B2=160 

1060 F0RI=VT0B1STEPSW 

1070 LINE 0.0.320^1^1 

1080 NEXT 

1090 F0RI=VT0B2STEPSW 
1100 LINE 0.0.1.200.1 
1110 NEXT 

1120 F0RI=VT0B1STEPSW 
1130 LINE 320.200.0.1.2 
1140 NEXT 

1150 F0RI=VT0B2STEPSW 
1160 LINE 320.200.1.0.2 
1170 NEXT 

1180 F0RI=VT0B1STEPSW 
1190 LINE -0.200.320.1.3 
1200 NEXT 

1210 F0RI=VT0B2STEPSW 
1220 LINE 0.200.1.0.3 
1230 NEXT 

1240 FORI-VTOBISTEPSW 
1250 LINE 320.0.0.1.1 
1260 NEXT 

1270 F0RI=VT0B2STEPSW 
1280 LINE 320.0.1.200.1 
1290 NEXT 
1300 PflUSE5 
ir=iiR I T<?T 
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Bild 2.1-6 : BiIdschirmcopy von LINEMULTI 


Es wurden beide Grafiken abgebildet, um Ihnen die unter¬ 
schiedlichen Auflösungen mit dem COPY-Befehl für Normal- 
und für Mehrfarbmodus aufzuzeigen. 


DRAW, ROT 

Die vorher beschriebenen Befehle BLOCK, REG und ARG sowie 
der Befehl CIRCLE lassen natürlich nur die grafische Aus¬ 
gabe von fest vorgegebenen geometrischen Formen zu. Eigene 
Formen kann man mit der Befehlskombination ROT und DRAW 
erzeugen. 

Wichtig: Der Befehl ROT muß auch gegeben werden, wenn we¬ 
der Drehung noch Vergrößerung beabsichtigt ist, da sonst 
der Befehl DRAW nicht funktioniert. 

Ob man sich seine Figuren aus kurzen Linien, kleinen 
Rechtecken und Blöcken oder ähnlichen Formen zusammensetzt 
oder mit DRAW, ist wohl Geschmackssache des Programmier¬ 
ers. Die Programmierung mit DRAW ist recht aufwendig. Zu¬ 
nächst müssen Zeichenreihen definiert werden, indem für 
jeden einzelnen Punkt gesagt werden muß, wo dieser relativ 
zum letzten Punkt stehen soll. D.h. Sie zeichnen ähnlich 
wie auf Papier, fortlaufend. 





48 


Kapitel 2 


Nach einer kurzen Zeit hat man die für die verschiedenen 
Richtungen (und ob ein Punkt gesetzt werden soll oder 
nicht) benötigten Angaben (Ziffern 1 bis 8) auswendig im 
Kopf und man braucht nicht mehr nachschauen, was doch 
einiges an Zeit spart. Dedoch ist das Eintippen und Testen 
von mit dem DRAW-Befehl gezeichneten Formen recht mühsam. 
Wenn Sie den ROT-Befehl anwenden wollen, können Sie auch 
gerade Linien nicht mit dem LINE-Befehl ziehen, da diese 
nicht umgesetzt werden. 


1000 HIRES6<7 

1010 flS« '■ 66666666665555555555777777777780888888809 " 

1020 FORI-0TO7 

1030 FORJ«1T07 

1040 ROT I.J 

1050 DRRU 155>95<1 

1060 PRUSE0.S 

1070 NEXT 

1080 NEXT 

1090 PRU8E5 



Bild 2.1-7 : BiIdschirmcopy von DRAWROT 
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Wenn Sie ähnliche Passagen in Ihrer selbstgewählten Figur 
haben, so empfiehlt es sich, die von Basic zur Verfügung 
gestellten Zeichenreihenoperationen zu verwenden und Ihre 
Zeichenreihen so zu gestalten, daß sie teilweise wieder 
verwendet werden können. 

Zu Demonstrationszwecken haben wir ein einfaches Quadrat 
herangezogen, das in Zeile 1010 definiert wird. In zwei 
ineinandergeschachtelten Schleifen wird anschließend 
jeweils die Figur gedreht und vergrößert. 


Ausmalen von Formen 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 


HIRES 6.6 
MULTI 6.7.8 

fi$="66666666665555555555777777777788888888889" 

FORI=0TO7 

ROT 1.4 

IRRW fl$.80.100.1 


NEXT 



PA INT 

80. 

50.2 

PRINT 

80.150.2 

PRINT 

20.100.2 

PRINT 

130. 

100.2 

PRINT 

0. 

0. 1 

PRINT 

0. 

199.1 

PRINT 

75. 

98. 1 

PRINT 

75. 

102.3 

PRINT 

85. 

98.3 

PRINT 

85. 

102. 1 

PRINT 

78. 

95.3 

PRINT 

78. 

105. 1 

PRINT 

82. 

95.1 

PRINT 

82. 

105.3 


PAUSE 10 
LIST 


Zur Erstellung ansprechender Grafiken auf dem Bildschirm 
gibt es noch den PAINT-Befehl, mit dem begrenzte Flächen 
ausgemalt werden können. Achten Sie beim Ausmalen bitte 
darauf, daß die auszumalende Fläche keine 'undichte 
Stelle' aufweist. Der PAINT-Befehl erspart Ihnen mühsames 
Eintippen langer Zeichenreihen für den DRAW-Befehl. Mit 
dem DRAW-Befehl brauchen Sie so nur noch den Rahmen zu 
erstellen und diesen dann anschließend mit dem PAINT- 
Befehl auszufüllen. 
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Bild 2.1-8 : BiIdschirmcopy von PAINT 


Durch Verwendung der Mehrfarbengrafik wurde aus unserem 
Quadrat im letzten Beispiel nun ein Rechteck bzw. eine 
Raute für die Drehung um 90 und 270 Grad. Mit den auf¬ 
geführten PAINT-Befeh len wird jeweils ein Punkt in den 
einzelnen Feldern lokalisiert, und das Unterprogramm in 
Simon's Basic füllt nachher bis zu den Grenzen diese 
Fläche aus. 

In Bild 2.1-8 sieht man deutlich, daß die ersten beiden 
Farben im Multicolormodus bei einem Grafik-Hardcopy in der 
Regel nur an den Randlinien unterschieden werden können. 

Wollen Sie zwischen Grafik und Textmodus innerhalb eines 
Programmes hin- und herschalten, ohne jeweils die Grafik 
neu zeichnen zu müssen - was besonders bei Erstellung 
einer Grafik mit Ooystick recht mühsam ist, können Sie 
CSET 0 und CSET 1 verwenden. Ein Speichern von Grafiken 
wird von Simon's Basic nicht unterstützt. Eine mögliche 
vorgehensweise ist in Band 3 dargestellt. 


2.2 Texte ioi Grafiknodus / Grafik und Sprites 

In diesem Kapitel wollen wir einiges über das Mischen von 
Texten und Sprites mit dem Grafikmodus aufzeigen. Dazu 
haben wir als Beispiel ein Teil eines Roulette-Programms 
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gewählt, das das Spielfeld an einem Roulette-Automaten, 
wie Sie auch in Spiel-Casinos stehen, nachbildet. Hier 
werden nur mit den Zahlen 0 bis 12 gespielt, mit einer 
Anordnung, wie Sie in nachfolgendem Bild dargestellt ist. 


il";: 





ll„„ Ii! 


Bild 2.2 : BiIdschirmcopy von KESSEL 


Oer Kessel ist somit in dreizehn Sektoren unterteilt. Die 
Sektoren wollen wir mit dem LINE-Befehl erstellen, die 
Zahlen sollen mit dem CHAR-Befehl eingetragen werden und 
die obere und untere Zeile mit dem TEXT-Befehl. Die rol¬ 
lende Kugel wird durch ein Sprite dargestellt. 

Zunächst das Listing; 


1000 REM ****************************** 
1010 REM * VORSPANN * 

1020 REM ****************************** 

1030 V=5324S 
1040 REM ■ 

1050 REM —- KOORDINATEN DER ZAHLEN .. 


1060 REM : 

1070 DI MX ( 16;'^ V (16)A < 1 b).. F (16) 
I0I30 DATA 71^32,43, 1 REM 0 

1090 DATA 109, 133.. 49,3 : REM 1 

1100 DATA 34,133,50,2 ^ REM 2 

1110 DATA 129,83,51,3 : REM 3 
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1120 

DRTR 

4*4 f -jy > 5cil.«li! 

REM 

4 


1130 

DRTR 

97.38.53.3 

REM 

5 


1140 

DRTR 

12.83.54.2 

REN 

6 


1150 

DRTR 

18.111.55.3 

REN 

i*' 


1160 

DRTR 

84.146.56.2 

REM 

S 


1170 

DRTR 

SiC' i 1 '46 f 5 r ) y 

REN 

9 


1180 

DRTR 

123.111.49.2 

REM 

10 

(1) 

1190 

DRTR 

131.111.48.2 

REN 

10 

<2) 

1200 

DRTR 

18.55.49.3 

REM 

11 

(1) 

1210 

DRTR 

26.55.49.3 

REM 

11 

(2 :> 

1220 

DRTR 

115.55.49.2 

REM 

12 

a> 

1230 

DRTR 

123.55.50.2 

REN 

12 

<. 2 ) 

1240 

REM : 





1250 

REN - 

- KOORDINRTEN EINLESEN 

1260 

REM : 





1270 

Fi;iR.I = 

1T016 




1280 

RERD7 

(I > 




1290 

RERD't 

< I > 




1300 

RERDRC.I;' 




1310 

RERDFCi:;' 





1320 HEXT 
1330 REN : 

1340 REN - KOORniHfiTEH KUGEL - 

1350 REN : 

1360 iiiNX0(i3;'/T'0a3;' 


1370 DRTR 163.82 ■ REN 0 

1380 DRTR 215.. 88 : REN 5 

1380 DRTR 267. 105 : REN 12 

1400 DRTR 279. 133 : REN 3 

1410 DRTR 267.161 ; REN 10 

1420 DRTR 239.183 : REN 1 

1430 DRTR 189.196 : REN 8 

1440 DRTR 137.196 : REN 9 

1450 DRTR 89.183 : REN 2 

1460 DRTR 57.161 : REM 7 

1470 DRTR 45.133 : REN 6 

1480 DRTR 65.105 : REN 11 

1490 DRTR 109.88 : REN 4 

1500 REM : 


1510 REM - KUGEKKOOR. EINLESEN - 

1520 REM : 

1530 F0RI=1T013 
1540 RERD X0<i;) 

1550 RERD V0':D 
1560 NEXT 


1570 REM : 

1580 REN - KUGEL DEFINIEREN - 

1590 REM ; 

1600 DESIGN 0.32*64+49152 

1610 e.BBBEBEB. 

1620 e.BBEBBBBBBBB. 
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1630 e_EEBEBEBEEBEBE. ...- 

1640 12.. .EBBEEEBEBBBBBEE. 

1650 12. .BEEEEEEEBBEEBEBEE. 

1660 12. EBBBEEEBBBBEEBBEEBB_ 

1670 12. EEBEBBBBBEBEBBBBBBE_ 

1680 @BBBEBEBEEBEEBEBBEBEEE. .. 

1690 I2EEEEBEBBEBBEBEBEBEBEE. .. 

1700 I2EEBEEEEEEEEEEEEEBBEBE. . . 

1710 I2BBEBBEBEEEBBBBBBBBEBB. .. 

1720 I2BBEBEBEEEBBBBEBEEEEBE. . . 

1730 I2BEBBEEBEEEEEBEBEEEEEE. . . 

1740 I2EEEEBBEBBBBBBBBEBBBEE. . . 

1750 12. EEBBBEEEEEEBEEEBBBE_ 

1760 12. BBBBEBEEEEEBEBEEEEE_ 

1770 12. .BEEEEEBBBEBEBBBBB. 

1780 12. . .EBBEBBBEBEBBBBE. 

1790 e_EEEEBBBEEEBEE. 

1800 12.BBEBBEEBEEE. 

1810 12.EBEBBBE. 

1820 REN *#********************:♦:******* 

1830 REN * HflUPTPROGRflNN * 

1840 REN ****************************** 

1850 HIRES78 7: NULTI 6.0,. 2 
1860 P 0 K E53280.. 7 
1870 Pi;iKE532Sl;7 
1880 X=1 
1890 REN : 

1900 REN —- TEXTE OBEN UND UNTEN -.. 

1910 REN : 

1920 TEXT 5; 5" COMNODORE 64 M 212 
1930 TEXT 35. 180/'ROULETTEM. 2. 12 
1940 REN : 

1950 REN —- RAHNEN ZEICHNEN -- 

I960 RiEN • 

1970 FÜRV=0TO2*it- . 4STEP2*fr/13 
1980 LI NE 75.100.75+75*81N < V).100+75*CÜS(V >.1 
1990 Z='t'+2*it/1 3 

2000 LINE 75+75*8IN'Ut'). 100+75*CO8(V> . 75+75*8IN(Z 
2010 VI =75+3.-'5* (75*81N < V > > +7 

2020 V2=100+3Z5*<75*CO3(V)> 

2030 Z1=75+3/5*(75*81N < Z > > 

2040 Z 2 = 10 0+3 5 * (7 5 * C 0 S (Z ') 

2050 LINE V1.V2.Z1.Z2. i 
2060 NEXT 
2070 REN • 

2080 REN —- ZAHLEN ZEICHNEN --- 

2090 REN : 

2100 F0RX=1T016 

2110! CHAR X . 't' !■■■'! .J. hiX .■ F . U 
2120 NEXT 
2130 PAUSE 1 


) . 1 00 

5*CÜS(Z).1 
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2140 

MOE SET- 

0.. 32,17 

0,0 

1 


2150 

REM : 





2160 

REM —- 

KUGEL DEFINIEREN 

UND - 

2170 

REM -— 

VON MITTE 

NACH ZI 

ERO - 

2180 

REM 

WRHriEr?N 

LA 

ISSEN 

— 

2190 

REM : 





2200 

MMOE 0,. 1 

71,150, 

163 

1,82,0, 

255 

2210 

PflUSE2 





2220 

K ' t '=1 





2230 

REM : 





2240 

REM - 

ZUFALLS 

ZAHL FUER 

ENDE 

2250 

REM —- 

EE3TIMMEN 

UND KUGEL 

2260 

REM- 

ROLLEN 



— 

2270 

REM : 





2230 

ZU^INKl 

2*RHD(6 

') ) 



2290 

FORI^1 TOI00+2U 




2300 

K0=:40(KV 





2310 

T0=V0(KV 





2320 

KV^KV+1 





2330 

IFKV>13THEHKV=1 




2340 

RLOCMOE 

0,K0,V0 

.. 0. 

I 


2350 

NEKT 





2360 

PAUSE 10- 





2370 

P0KEV+21 

, 0 




2380 

END 






Im Vorspann werden zunächst die Daten für die auszugeben¬ 
den Ziffern am Spielfeld definiert. Da der CHAR-Befehl 
verwendet werden soll, müssen die X- und Y-Koordinaten, 
der ASCII-Wert des Zeichens und die Farbe angegeben wer¬ 
den. Bei den Farben soll die Zahl natürlich entsprechend 
rot oder schwarz eingefärbt sein und die Null wollen wir 
blau einfärben. Obwohl nur dreizehn Zahlen ausgegeben wer¬ 
den müssen, brauchen wir insgesamt sechzehn Werte, da drei 
Zahlen je zwei Ziffern besitzen. In den Zeilen 1270 bis 
1320 werden die Daten in die entsprechenden Felder ein¬ 
gelesen. 

Als nächstes werden die Positionsdaten für die dreizehn 
Felder bestimmt, die nachher die Bewegung der Kugel si¬ 
mulieren sollen. Der Einfachheit halber springt die Kugel 
auf einem geraden Weg in das neue Feld. Optisch fällt dies 
fast gar nicht auf, da ein Kreis mit dreizehn 'Ecken' be¬ 
schrieben wird. Die Daten für die Kugel sind in der Rei¬ 
henfolge am Spielfeld angegeben: im Uhrzeigersinn; so, wie 
später auch die Kugel rollen soll. Auch diese Daten werden 
in einer FOR...NEXT-Schleife eingelesen. 
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Dann wird das Sprite für die Kugel definiert, wobei hier 
zu beachten ist, daß im hochauflösenden Grafikmodus der 
Wert 49152 ($C000) bei den Blockadressen zu addieren ist. 

Im Hauptprogramm wird zunächst die Grafik eingeschaltet 
und - für die Ausgabe nach Abbruch des Programms - die 
entsprechenden Werte für Rahmen und Hintergrund gesetzt. 
Die Zeilen 1920 und 1930 geben die beiden Textzeilen am 
oberen und unteren Bildschirmrand aus. Die beiden Zahlen 
vor dem Text geben die X- und Y-Position an, die drei 
Zahlen dahinter Zeichentyp, Größe und Abstand der Buch¬ 
staben. Die letzten Parameter wurden bewußt gleich ge¬ 
wählt. In den Zeilen 1970 bis 2060 wird der Rahmen ge¬ 
zeichnet, dabei wird eine Schleife von 0 bis 2*PI durch¬ 
laufen. Dies beschreibt einen Vollkreis. Durch die 
Schrittweite wird der Vollkreis in dreizehn Teile geteilt. 
Für jedes Feld wird der entsprechende Radius gezeichnet 
und anschließend werden zwei Kreisabschnitte, die den 
inneren und äußeren Kreis des Spielfeldes darstellen 
sollen, dargestellt. Die Berechnung mag am Anfang etwas 
kompliziert aussehen, ist es aber nicht, wenn man sich 
verdeutlicht, daß die beiden Winkelfunktionen Sinus und 
Cosinus bei entsprechender Parameterisierung auch einen 
Kreis beschreiben. Etwas übersichtlicher als die ersten 
beiden LINE-Befehle, aber auch speicherplatzaufwendiger 
ist der letzte LINE-Befehl, dessen Vorlauf in Zeile 2010 
beginnt. 

Die bisher gezeichnete Figur kann auch mit dem ARC-Befehl 
dargestellt werden, wodurch die Berechnungen mit Sin und 
COS entfallen. Die zeitliche Reihenfolge ist allerdings 
dann auch geändert. Die Sequenz könnte dann wie folgt 
aussehen: 


1950 REM — RAHMEN ZEICHNEN - 

I960 REM ; 

1970 Fi;iRV=0TO360STEP360/'13 


1980 

HNGL7 

5.100. 

1 1 -VC- 

T j ( J J 

75. 1 


1990 

NEXT 





2000 

HRC75 

.. 100. 0 

.■ 360.. 

:360/13. 75 . 

75. 1 

2010 

flRC i''5 

. 100.0 

f 3t'0 .■ 

360/13.45. 

45. 1 


In der Schleife von Zeile 2100 bis Zeile 2120 werden die 
weiter oben eingelesenen Daten mit dem CHAR-Befehl auf dem 
Bildschirm ausgegeben. 

Mit dem Befehl in Zeile 2140 werden zunächst die grund¬ 
legenden Daten für das Sprite der Kugel definiert (vergl. 
auch Kapitel 3). Mit dem MMOB-Befehl in Zeile 2200 wird 
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Daß gegenüber dem im Anhang 2 vorgestellten Programm nicht 
viel geändert werden muß, sehen Sie an folgendem Listing: 


1000 REM 

1010 REM * B n L K E H 5 * 

1020 REM 

1090 COLOUR 11.11 
2000 REM 

2010 REM * DRTEH ERFRSSEN UND VORBEREITEH * 

2020 REM 

2030 IHPUT’MRHZRHL DER BRLKEN'SRB 
2040 DIMNB'::RB.3> 

2050 DIMHOvRB.S) 

2060 REM- WERTE DER BRLKEN ERFRSSEN - 

2070 F0RI=1T0RB 
2080 F0RJ=1TÜ3 ■ 

2090 PRIHTI;"TER BRLKEN ";JJ"-TER EINTRRG"; 

2100 INPIJTWBa.J> 

2110 WB<I.0)=WB':i..0>+WBa. J> 

2120 NEXT 
2130 NEXT 

2140 REM- MAXIMUM BESTIMMEN - 

2150 F0RI=1T0RB 

2160 IFWB ■: 1.0) :>MRTHENMR=WB C 1.0 > 

2170 NEXT 

2180 REM- GRAFISCHE RUSGRBEDRTEN ERFRSSEN - 


2190 INPIJT"RBSTRND "; R 

2200 INPUT"BREITE ";BR 

2210 INPUT"GRUNDZEILE ".GZ 

2220 INPUT"MRXIMRLE HOEHE (ZEILE) ".MH 

2230 INPUT"ERHÜEHUNG ";EH 

2240 INPUT"BEGINN IN SPALTE ".BS 


2250 REM- ERLKENHÜEHEN NORMIEREN - 

2260 FORI=lTORB 

2270 HO (1.0 ) = I NT ( WB (1.0) * (GZ-MH-EH* (RB-1) ) /■MR+. 5) 

2230 HEXT 

2290 REM- GROESSE DER TEILBRLKEN BESTIMMEN - 

2300 FORI=lTORB 
2310 F0RJ==1T03 

2320 HO (I. J ) =4f;:i (1.0) *WB (I. J ) .-■'WE (1.0) 

2330 NEXT 
2340 HEXT 

3000 REM *###***#*******i+:*****#************i+i*******if*i+i*** 

3010 REM * RUSGREE DER ERLKEN * 

3020 REM ************************************************ 

3030 HIRES 0.0 : MULTI 7.1.8 
3040 UX=BS-R 
3050 FOR1 = 1 TORE 
3060 OX=UX+R 
3070 UX=ÜX!+BR 
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3080 OV=GZ-HO (1. 1) -EH* CI -• 1 > 

3090 UV=GZ-EH*a-i;' 

3100 BLOCK ÜK.OV..UX.IJV.. 1 

3110 OV=GZ-HÜ(I. i:'-H0(I.2;'-EH*(I-l) 

3120 UV=GZ-HO(I.1>-EH*(I-1) 

3130 BLOCK 0K;0V..UX.UV.2 

3140 OV=GZ-HO ( I.. 1) -HO < 1.2 > -HO< 1.3 > -EH* < I -1) 

3150 IJV=GZ-H0<I,. i;'-H0(I.2::'-EH*a-i::' 

3160 BLOCK 0H.0V..UK.UV..3 
3170 HEXT 

3180 GETRT: '1FH$=""THEN3130 
3200 END 

Die Zeilen 1030 bis 1070 entfallen, da die in Band 3 vor- 
qestellten Maschinenprogramme nicht geladen werden müssen 
(wir gehen davon aus, daß Simon's Basic bereits geladen 
ist). Die Zeilen 1080 und 1090 werden zu dem COLOUR-Befehl 
in Zeile 1090 zusammengefaßt, die Zeile 1100 entfällt, da 
die Adresse des Video-Controllers nicht benötigt wird. 

Die Zeilen 2000 bis 2340 sind vollkommen identisch, da 
sich an der Erfassung und Vorbereitung der Daten nichts 
ändert. 

Die nächste Änderung geschieht in Zeile 3030 wo der GREIN- 
Befehl durch die Befehle HIRES und MULTI ersetzt werden 
muß. Die einzigen weiteren Änderungen befinden sich in 
Zeile 3100, 3130 und 3160 wo jeweils der BLOCK-Befehl der 
geänderten Syntax angepaßt werden muß, und in Zeile 3190, 
da die Grafik bei Simon's Basic nicht abgeschaltet werden 
braucht. 

Für diejenigen, die nicht im Besitz von Band 3 sind, kurz 
noch etwas zur Erfassung der Daten und deren Aufbereitung. 
Zunächst wird in Zeile 2030 die Anzahl der Balken erfaßt 
und dementsprechend ein Feld für die Werte der Balken und 
deren spätere Höhe (in Zeilen) definiert. Dann werden die 
Werte der einzelnen Balken eingelesen und im Feld 0 der 
Matrix WB(,) die Summe der drei Teilbalken festgehalten. 

In der Schleife von Zeile 2150 bis 2170 wird der größte 
Wert (Summe) aller Balken ermittelt. Die eingelesenen Da¬ 
ten ab Zeile 2190 dienen der grafischen Aufbereitung und 
sprechen für sich selbst. Wichtig ist noch die Schleife 
von Zeile 2260 bis 2280, in der die Höhe der Balken nor¬ 
miert wird. Dies geschieht, indem die vorher eingelesene 
Grundzeile und die maximale Höhe sowie die mit der Anzahl 
der Balken multiplizierte Erhöhung voneinander subtrahiert 
werden. Die Erhöhung gibt an, um wieviel Zeilen jeder wei¬ 
tere Balken höher anfangen soll (mit seiner untersten Zei¬ 
le) als der vorhergehende. 
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Aufgrund der Normierung wird in den beiden geschachtelten 
Schleifen ab Zeile 2300 noch die Höhe in Zeilen für jeden 
einzelnen Teilbalken berechnet. 

In den Zeilen ab 3000 werden dann jeweils für die ein¬ 
zelnen Teilbalken die obere linke und untere rechte Ecke 
den Variablen OX, UX, OY und UY errechnet und die Blocks 
ausgegeben. 


2.4 Linlendiagraane 


Neben den Balkendiagrammen bilden Liniendiagramme eine 
weitverbreitete Anwendungsform zur grafischen Darstellung 
unübersichtlicher Zahlenkolonnen. Das beschriebene Pro¬ 
gramm ist z.B. zur Umsatzdarstellung gut zu verwenden. Die 
drei möglichen Farben wurden so aufgeteilt, daß eine Farbe 
für die Rasterung herangezogen wird und die beiden anderen 
jeweils für eine Umsatzgruppe. Wie in den anderen Fällen 
auch, ist natürlich die farbige Darstellung mittels der 
Hardcopyausgaben nicht so gut möglich. 

Besonderen Wert wurde darauf gelegt, daß die Daten sowohl 
vertikal als auch horizontal beliebig gestaucht oder ge¬ 
streckt werden können. Dies wird auch aus den folgenden 
Abbildungen deutlich; 



Bild 2.4-1 ; Liniendiagramm mit Divisor 1 und Zeitfaktor 1 






























Bild 2.4-3 : Liniendiagramm mit Divisor 1,5 u. Zeitfak¬ 
tor 0,5 
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Zunächst jedoch wieder das Programmlisting: 


1000 REM 

1010 REM * VORSPRHH * 

1020 REM ***###*♦*#**♦#***#*****#***#** 
1030 REM' 

1040 REM - PRRfiMETER - 

1050 rem: 

1060 N=S 
1070 DI=1.5 
1080 ZF='0.5 
1090 rem: 

1100 REM — DRTEH - 

1110 REM: 

1120 DIMZE(H).B'::H.2>.C(H.4:) 

1130 riRTR0.45. 10.36. 17. 16. 14. 16 
1140 DRTR51.57.70.80.90.100.105.106 
1150 DRTR26.45.56.63.71.83.87.93 
1160 DRTR3.67.90.134.154.170.191.197 
1170 DRTR0.1.17.37.51.67.72.82 
1180 DRTR0.0.0.4.33.50.57.66 
1190 DRTR0.0.0.0.11.30.36.48 
1200 REM: 

1210 REM —- DRTEH EINLESEN- 

1220 REM: 

1230 FOR 1=1 TO N 
1240 RERDZE<n 
1250 ZEa;'=zE';:i;'*ZF 
1260 HEXT 
1270 FÜR J=1 TO 2 
1280 FOR 1=1 TO H 
1290 RERDBa..J> 

1300 HEXT 
1310 HEXT 
1320 FOR J=1 TO 4 
1330 FOR 1=1 TO H 
1340 RERDCd.J) 

1350 HEXT 
1360 HEXT 
1370 REM 

1380 REM * HRUPTPROGRRMM * 

1390 REM 

1400 HIRES 1.0 : MULTI 6.7.8 
1410 REM: 

1420 REM —- DRTEH NORMIEREN - 

1430 REM: 

1440 FORI-ITÜH 
1450 F0RJ=1T02 
1460 Bd. J::' = IHT'::E'::i. J>,'DI) 

1470 HEXT 
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14yü FURJ--lfiJ4 

1490 C'::i.J;' = IHT(Ca/J)/DI) 

1500 NEKT 
1510 HEXT 
1520 rem: 

1530 REM - HLISGflBESCHLEIFE - 

1540 REM: 

1550 F0RI=1TÜH-1 
1560 RX=RX+ZE':;i)*.9 
1570 EX=EX+ZE':;i + i;:'*,9 
1580 REM: 

1590 REM —- DflTEM RUSGEEEH- 

1600 REM: 

1610 F0R.T=-rrQ2 

1620 LINE RX.200-B(I.. J::sEX..200-B';:I + 1.. J>. 1 
1630 HEXT 
1640 F0RJ=1TÜ4 

1650 LI HE RX .. 200-C (. I.. J > > EX .. 200-C (I + 1.. J > 3 
1660 HEXT 
1670 REM: 

1680 REM -— nURCHSCHHITTSWERTE BEST. - 
1690 rem: 

1700 F0RJ=1T02 
1710 riU=riU+B<I. J) 

1720 Dl=ril+E(I + l...J> 

1730 HEXT 
1740 F0RJ=1T04 
1750 riU=DU+C(I.. J) 

1760 rii=rii+C'::i+i,j) 

1770 HEXT 
1780 DU=riU/6 
1790 Iil=Dl/6 
1800 REM: 

1810 REM nURCHSCHHITTE UHD 3EHK- - 

1820 REM - RECHTE SKRLIERUHG 

1830 REM: 

1840 LI HE RX.. 200-DIJ. EX. 200-D1.2 
1850 LI HE EX. CG EX. 200.. 2 
1860 HEXT 
1870 REM: 

1880 REM - WRRGRECHT SKRLIERUHG - 

1890 rem: 

1900 FÜR I =200TO0STEP-20Xri I 
1910 LIHE X.1.160. 1.2 
1920 HEXT 

1930 GETRi:: IFR$=‘"'THEH1930 
1940 END 
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Neben dem Faktor für die vertikale Streckung (Divisor/DI) 
und dem Faktor für die horizontale Streckung (Zeitfak- 
tor/ZF) ist auch die Anzahl der zu behandelnden Elemente 
je Linie variabel (N). Diese Daten werden in den Zeilen 
1060 bis 1080 besetzt. Sollten Sie z.B. später einmal mehr 
Daten haben, und eine horizontale Stauchung notwendig 
sein, damit alle Daten auf dem Bildschirm Platz finden 
können, so brauchen Sie nur in Zeile 1080 den Wert hinter 
ZF zu ändern. Ebenso ist nur in Zeile 1070 der Faktor hin¬ 
ter DI zu ändern, wenn Ihre Umsätze derart in die Höhe 
schießen, daß Sie den oberen Bildschirmrand erreichen. 

Wie Sie an den Abbildungen sehen, sind für die Stichtage, 
an denen die Werte festgestellt wurden, jeweils senkrechte 
Linien gezogen. Um dies zu ermöglichen, muß natürlich noch 
der Abstand der Linien angegeben werden. Die Daten dazu 
befinden sich in Zeile 1130, wobei die Daten Ihren Wün¬ 
schen entsprechend Tage, Wochen oder Monate angeben kön¬ 
nen. Vorher wurden jedoch noch die benötigten Felder di¬ 
mensioniert; ZE() für die Zeitabstände, B() für die erste 
Produktgruppe mit zwei Elementen und C() für die zweite 
Produktgruppe mit vier Elementen. 

Ab Zeile 1140 befinden sich die Daten für die Produkte. 
Dabei ist für jedes Produkt eine Zeile vorgesehen, so daß 
Sie die Erweiterung Ihrer Daten jeweils durch Anhängen des 
neuesten Ergebnisses an die Zeile erreichen können. 

Ab Zeile 1230 werden die Daten eingelesen, hier zunächst 
die Zeitabstände die noch mit dem Zeitfaktor multipliziert 
werden, d.h., daß Sie in den DATA-Zeilen die originären 
Daten eingeben können, wie Sie bei Ihnen anfallen. Durch 
die Vorgehensweise beim Einträgen der Daten (je Produkt 
eine Zeile) müssen natürlich die Schleifen ab Zeile 1270 
etwas anders gestaltet werden als normal üblich. Die 
äußere Schleife läuft jeweils für die Produktgruppe und 
die innere für die eingegebenen Elemente. Ob Sie Ihre 
Daten in Stück oder TDM angeben, bleibt auch Ihnen über¬ 
lassen. 

Nachdem in Zeile 1400 die Grafik eingeschaltet wurde, wird 
in den Schleifen ab Zeile 1440 die Normierung der Daten 
durchgeführt. Die Ausgabeschleife für die Linien beginnt 
in Zeile 1550, wobei zunächst die X-Koordinaten für die 
Linien festgelegt werden. Die Ausgabe geht so vor, daß 
zunächst für einen Zeitbereich alle Linien ausgegeben 
werden, deshalb auch zunächst die Berechnung der X-Werte. 
Ab Zeile 1610 befinden sich die Ausgabeschleifen für die 
beiden Produktgruppen. 

Anschließend wird ab Zeile 1700 noch der Durchschnittswert 



64 


Kapitel 2 


gebildet, der natürlich für beide Endpunkte der Linien 
berechnet werden muß. Achten Sie darauf, daß in den Zeilen 
1780 und 1790 jeweils die '6' durch einen entsprechenden 
Wert ersetzt werden muß, wenn Sie die Darstellung für mehr 
oder weniger Produkte verwenden. 

In Zeile 1840 wird die Linie für den Durchschnitt angege¬ 
ben, auch in der Farbe '2' für die Skalierung. In Zeile 
1850 wird noch die senkrechte Linie gezogen, was man an 
den Y-Koordinaten (0,200) leicht sieht. Nach Abschluß der 
Datenausgabe und der zeitlichen Skalierung kann die waage¬ 
rechte Skalierung durchgeführt werden (ab Zeile 1900). In 
Zeile 1900 kann die Zahl '20' noch durch entsprechende 
Werte ersetzt werden. Sie bedeutet, daß je Bildschirmzeile 
20 Einheiten der originär eingegebenen Daten aufgetragen 
werden. Da die Daten mit DI normiert wurden, muß natürlich 
auch die Schrittweite innerhalb der Schleife mit DI 
normiert werden. 


2.5 Zeichnen mit Joystick und Paddies 


Die Befehle JOY und POT(O) sowie POT(l) ermöglichen eine 
komfortable Joystick- bzw. Paddle-Abfrage. Da jeweils zwei 
Paddies an einem Stecker sitzen, gibt es folglich für je¬ 
des Paddle einen eigenen Befehl. Die Abfrage von Joystick 
und Paddies ist nur an Control-Port 2 möglich. Gehen wir 
zunächst kurz auf den Joystick ein. Der am Joystick an¬ 
liegende Wert, kann sowohl einer Variablen zugewiesen wer¬ 
den, wie unser erstes kurzes Beispiel zeigt; 

100 P=J0Y 
110 PRINTP 
120 GOTOlOO 

als auch bei der Eingabe direkt verwertet werden, wie 
folgende Zeilen zeigen: 

200 PRINTJOY 
210 G0T0200 

Sie sollten diese kurzen Testprogramme ruhig einmal laufen 
lassen, und dabei den Joystick bewegen, um sich die Arbeit 
des Rechners dabei besser klarzumachen. 

Ähnliches gilt auch für die Paddies. Zunächst die Zuwei¬ 
sung für die Variablen: 

100 P0=P0T(0) 

110 P1=P0TÜ) 
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120 PRINTP1,P2 
130 GOTOlOO 

und nun die direkte Verarbeitung: 

200 PRINTPOT(O),P0T(1) 

210 G0T0200 


2.5.1 Hochauflösende Grafik Bit dem Doystick 


Zunächst wollen wir ein Programm vorstellen, bei dem Sie 
in normaler hochauflösender Grafik mit dem Joystick 
zeichnen können. 

100 HIRES6.7 
110 Xsl60 
120 V-100 
130 P=J0V 


140 

IF 

P=1 

OR 

P"129 

THEN 

V»V-1 


150 

IF 

P»2 

OR 

P»130 

THEN 

Vb't’-I 

■■ X=X+1 

160 

IF 

P=3 

OR 

P»131 

THEN 

X»X+1 


170 

IF 

P=4 

OR 

P=132 

THEN 

V=V+1 

: X-X+1 

180 

IF 

P«5 

OR 

Pml33 

THEN 

V=V+1 


190 

IF 

P=6 

QR 

P=134 

THEN 

•v^'f+l 

X 

II 

X 

1 

200 

IF 

P*7 

OR 

P=135 

THEN 

X=X-1 


210 

IF 

P=8 

OR 

P«136 

THEN 

V-V-1 

■ X=X-1 

240 

IF 

P>127 

THEN ZF=1 : 

ELSE: 

ZF=0 

245 

GETfl# 






246 

IFfl$="P"THEN PfilHT X 

V.l : 


250 

PLOT X; 

W> 

ZF 





260 GOTO130 


Gerade Linien (senkrecht, waagerecht und diagonal) sind 
dabei kein Problem. Schwierigkeiten gibt es allerdings, 
wenn man schöne Kurven zeichnen will. So ist auch die 
nachfolgende Abbildung kein großes Meisterwerk. Für Kurven 
müssen Sie immer zwischen zwei Joystickrichtungen hin und 
her pendeln. 

In dem Programm wollen wir den 'Feuerknopf' dazu benutzen, 
entweder an der aktuellen Bildschirmposition einen Punkt 
zu setzen (Feuerknopf gedrückt) oder zu löschen (Feuer¬ 
knopf nicht gedrückt). 




66 


Kapitel 2 



Bild 2.5-1 : Figur mit Joystick gezeichnet 


Zunächst wird die hochauflösende Grafik eingeschaltet und 
die Zeichenposition auf die Mitte des Bildschirms fest¬ 
gelegt (Zeile 110 und 120). Um nicht jeweils die JOY- 
Abfrage durchführen zu müssen, wird der aktuelle Wert 
zunächst an die Variable P übergeben. Damit ist auch 
sichergestellt, daß nicht während des Ablaufes eine andere 
Joystickposition überprüft wird. 

Zunächst wird in den Zeilen 140 bis 210 die Richtung des 
Joystickes festgestellt, und die X- und Y-Koordinaten wer¬ 
den entsprechend verändert. Ist der Feuerknopf gedrückt (P 
gößer als 127), so wird die Hilfsvariable ZF auf 1 ge¬ 
setzt, andernfalls auf 0. 

In Zeile 245 wird noch ein Zeichen von der Tastatur einge¬ 
lesen, um auch das Ausfüllen einer umrandeten Fläche zu 
gestatten. In Zeile 246 wird abgeprüft, ob der Tastendruck 
ein P ist, wodurch der PAINT-Befehl aufgerufen wird. An¬ 
schließend wird die Hilfsvariable A$ wieder zurückgesetzt. 
Achtung: Es ist keine Warteschleife programmiert, so daß 
Sie zu jedem beliebigen Zeitpunkt ’P' drücken können. 

In Zeile 250 wird der eigentliche Punkt ausgegeben. Durch 
die Syntax beim PLOT-Befehl wird über die Hilfsvariable ZF 
bestimmt, ob der Punkt gesetzt oder gelöscht wird. Dann 
springt das Programm zur erneuten Abfrage des Joystickwer¬ 
tes. 


Sind Sie mit dem Zeichnen fertig, so drücken Sie einfach 
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die STOP-Taste. Danach können Sie mit dem COPY-Befehl die 
Grafik auf dem Drucker ausgeben. 


2.5.2 Mehrfarben-Grafik «it dem Doystick 


100 HIRES1;11 

105 MULTI 12.8,6 

106 EF>1 
110 X-80 
120 Val00 
130 P»J0V 

140 IF P«1 OR P»129 THEN V=V-1 

150 IF P=2 OR P=130 THEN V«V-1 : X»X+1 

160 IF P=3 OR P=131 THEN X*X+1 

170 IF P»4 OR P=132 THEN V-V+1 : X»X+1 

180 IF P»5 OR P«133 THEN V»V+1 

190 IF P=6 OR P»134 THEN V"V+1 : X-X-1 

200 IF P»7 OR P-135 THEN X=X-1 

210 IF P«e OR P»136 THEN V-V-l : X^X-l 

220 GETR* 

230 IFR$»"1" THEN EF»! 

232 IFR$«*"2" THEN EF=2 

233 IFR$="3" THEN EF»3 

234 IFR»»"4" THEN EF=»4 

235 PRINTR$,P,ZF,EF 

240 IF P>127 THEN 2F=EF : ELSE: ZF=0 
250 PLOT X,V,2F 
260 GOTO130 


Das Programm aus dem vorigen Kapitel brauchen wir für den 
Mehrfarbenmodus nur leicht zu ändern. Zunächst muß nach 
dem Einschalten der Grafik mit dem MULTI-Befehl festgelegt 
werden, welche Farben die Zeichnung haben soll. Per Pro¬ 
gramm wird die erste Zeichenfarbe (Variable EF) auch mit 
der ersten Farbe im MULTI-Befehl gesetzt. Zu beachten ist, 
daß in Zeile 110 der X-Wert für die Bildschirmmitte auf 80 
gesetzt werden muß, da die Auflösung nur noch 160 Zeichen¬ 
punkte vertikal beträgt. 

Die Zeilen 120 bis 210 sind identisch dem Programm im vo¬ 
rigen Kapitel. Die Abfrage für den PAINT-Befehl wurde in 
diesem Programm ausgelassen. Dafür werden die vier Tasten 
’l’, '2', '3' und '4' abgefragt und jeweils die Hilfsva¬ 
riable für die zu zeichnende Farbe entsprechend umgesetzt 
(EF). Zur Kontrolle werden die Parameter in Zeile 235 noch 
am Bildschirm ausgegeben. Solange die Grafik eingeschaltet 
ist, werden diese natürlich nicht angezeigt. Brechen Sie 
das Programm mit der STOP-Taste ab, so sehen Sie die letz- 
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ten Ausgaben noch auf dem Bildschirm. 

In Zeile 240 wird wieder die zu zeichnende Farbe fest¬ 
gelegt. Dazu wird in diesem Programm die Hilfsvariable ZF 
mit dem Wert von EF besetzt. In Zeile 250 erfolgt wieder 
die Ausgabe und in Zeile 260 wird zur erneuten Ooystick- 
abfrage übergegangen. 


2.5.3 Mehrfarben-Grafik mit Doystick und PAINT 


In diesem kurzen Kapitel wollen wir das Programm aus dem 
letzten Kapitel dahingehend ändern, daß umrandete Bild¬ 
schirmgebiete auch mit einer Farbe nach Wahl gefüllt 
werden können. Bei der Handhabung des Programms können Sie 
also mit dem Joystick in ein umrandetes Gebiet gehen, 
anschließend die Farbe wählen und dann ’P* drücken, wonach 
das angewählte Gebiet mit der gewünschten Farbe ausgefüllt 
wird. 


100 

HIRESl.il 





105 

MULTI 12. 

8.6 




106 

EF=1 





110 

X«*80 





120 

Vol00 





130 

P=J0V 





140 

IF P=1 OR 

P=129 

THEN 

V=V-1 


150 

IF P=2 OR 

Pc 130 

THEN 

V=V-1 

• X»X-F1 

160 

IF P*3 OR 

P»131 

THEN 

X=X+1 


170 

IF P=4 OR 

Pc 132 

THEN 

V=V+1 

: X«X+1 

180 

IF P»5 OR 

Pcl33 

THEN 

V=V+1 


190 

IF P»6 OR 

Po 134 

THEN 

V=V+1 

1 

X 

11 

X 

200 

IF P*7 OR 

P=135 

THEN 

X*X-1 


210 

IF P»8 OR 

P«136 

THEN 

V=V-1 

: X=X-1 

220 

GETfl* 





230 

IFfl$="l" 

THEN EF=1 



232 

IFfl$="2" 

THEN EF=2 



233 

IFfl*o"3" 

THEN EF«3 



234 


THEN EF=4 



235 

IFfl$»"P" 

THEN PRINT X.V.EF 

: EF=4 

236 

PRINTflt.P.ZF.EF 




240 

IF P>127 

THEN ZF»EF 

ELSE- 

ZF*0 

250 

PLOT X.V. 

ZF 




260 

GOTO130 
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Dazu ist zunächst (Zeile 235) zu prüfen, ob die Taste ’P' 
gedrückt wurde. Anschließend ist der PAINT-Befehl mit den 
entsprechenden Koordinaten und der gewünschten Farbe (EF) 
durchzuführen. Beachten Sie bitte, daß die Farbe nach je¬ 
dem PAINT-Befehl automatisch auf '4' umgeschaltet wird. 

Der Rest des Programmes ist identisch. Hier noch eine 
kleine Abbildung einer imaginären Landkarte: 



Bild 2.5-2 : 'Landkarte' mit Joystick und PAINT 


2.5.4 Joystick, PAINT und 16 Farben 

iC0 COLOUR0,0 
101 CSET2 

105 MULTI 1.2.3 

106 EF=1 
110 K=»80 
120 ■t’o100 
130 P«=J0V 


140 

IF 

P«1 

OR 

P=129 

THEN 

'V='t'-1 


150 

IF 

pt=2 

OR 

P=130 

THEN 

V='V-1 

; K*»X+1 

160 

IF 

P«3 

OR 

P=131 

THEN 

X=X+1 


170 

IF 

P=4 

OR 

P=132 

THEN 

V=V+1 

; X-X+1 

180 

IF 

P=5 

OR 

P=133 

THEN 

't'='t'+1 


190 

IF 

P=6 

OR 

P=134 

THEN 

'^"'t'+I 

X=X-1 

200 

IF 

P=7 

OR 

P»135 

THEN 

X»X-1 


210 

IF 

P=3 

OR 

P=136 

THEN 

v»v-i 

: X=X-1 


220 GETRJ 

230 IFfl$="l" THEN EF=1 
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232 IFfi*="2" THEN EF=2 

233 IFfi$="3" THEH EF=3 

234 IFfl$="4" THEH EF=4 

235 IFfi$="P" THEH PRIHT X.V.EF : EF=4 

236 IFR$="L" THEH GOSUB 500 

240 IF P>127 THEH 2F=EF : ELSE: ZF=0 
250 PLOT XAL2F 
260 GOTO130 

500 GETL*: IFL*='‘"THEH500 
510 L»VfiL<L$> 

520 IFL<:0ORL>4THEH500 
530 IF L=0 THEH HI COL : RETURH 
540 OH L GOTO 550.560.570.580 
550 LOW COL 4.5.6 : RETURH 
560 LOW COL 7.8.9 : RETURH 
570 LOW COL 10.11.12 : RETURH 
580 LOW COL 13.14.15 : RETURH 

Auch dieses Programm entspricht wieder im großen und gan¬ 
zen den vorher vorgestellten. Geändert wurde in Zeile 100 
und 101 der HIRES-Befeh 1. Zunächst wurde er durch den 
COLOUR-Befehl ersetzt, der Rahmen- und Hintergrundfarbe 
setzt. Anschließend wurde eine andere Grafik mit dem 
CSET2-Befehl wieder zurück auf den Bildschirm geholt. Als 
Farben im MULTI-Befeh 1 (der Hintergrund ist schwarz = 
Farbe 0) wurden einfach die ersten drei Farben herangezo¬ 
gen. Die Zeilen bis 235 sind schon bekannt. In Zeile 236 
wird abgefragt, ob an der Tastatur ein ’L' gedrückt wurde; 
wenn ja, wird in das Unterprogramm ab Zeile 500 verzweigt. 
Neu sind dann auch nur noch die Zeilen von 500 bis 580. 
Zunächst wird eine weitere Taste von der Tastatur abge¬ 
fragt, und in der Variablen L der Zahlwert festgelegt. 
Zeile 520 beinhaltet eine Plausibilitätsprüfung, ob ein 
kleinerer Wert als null, oder ein größerer Wert als vier 
vorliegt. Beachten Sie bitte, daß die Eingabe eines Buch¬ 
stabens auch auf den Wert null führt. Mit der Wahl der 
Zahltasten 0 bis 4 können Sie nun weitere Farben auswäh¬ 
len. Geben Sie eine Null ein, so wird auf die ursprünglich 
im MULTI-Befehl angegebenen Farben zurückgeschaltet. In 
allen anderen Fällen wird in Zeile 540 zu den weiteren 
Zeilen verzweigt, die jeweils ein Dreierpaar an Farben 
angeben. Der Einfachheit halber wurden hier die Farben in 
ihrer numerischen Reihenfolge herangezogen. Da jede ange¬ 
sprungene Zeile das Unterprogramm beendet und vorher eine 
Plausibilitätsprüfung durchgeführt wurde, braucht das 
Unterprogramm selbst nicht mit einem RETURN beendet zu 
werden. 

Wenn Sie nun zeichnen und Ihre Gebiete entsprechend ein- 
färben, werden Sie einige Male feststellen, daß die Gren- 
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zen treppenförmig eingefärbt werden. Dazu noch ein bißchen 
über die Speicherung von Farbgrafiken. Wie wir in früheren 
Bänden schon festgestellt haben, können bis zu drei Farben 
(und die Hintergrundfarbe) vom Rechner vergeben werden. 
Dies gilt aber nicht für den gesamten Bildschirm, sondern 
es kann jedes Zeichen - wie es im normalen Textmodus als 
Matrix aus 8*8 Punkten erscheint - drei verschiedene Far¬ 
ben bekommen. Bei ungeschickter Wahl der Farben für Ihre 
Gebiete ergeben sich somit die 'Treppen', dort wo Ihre 
Linie nicht genau an der Grenze eines Zeichens verläuft. 

Dies liegt daran, daß der LOW COL-Befehl immer alle Farben 
innerhalb dieses Zeichens umbesetzt. Bei geschickter Farb- 
angabe beim LOW COL-Befehl kann man diesen Umstand aber 
umgehen. Das letzte Programm sollten Sie sich dazu so um¬ 
schreiben, daß Sie zwar die Farben über den LOW COL-Befehl 
ändern können, aber bei der Eingabe alle drei Farben 
selbst über Tastatur bestimmen können. Sinnvoll wäre dabei 
auch eine zusätzliche Textausgabe am unteren Bildschirm¬ 
rand, die die gerade aktuellen Farben anzeigt, damit Sie 
nicht versehentlich falsche Farben wählen. In der nachfol¬ 
genden Abbildung haben wir Ihnen die Möglichkeit des Ein¬ 
färbens mit mehr als drei Farben an einer imaginären Land¬ 
karte dargestellt. Die im Kreis dargestellte Zahl gibt je¬ 
weils die Farbposition im LOW COL-Befehl an (1, 2 oder 3), 
die Zahl im Quadrat die Farbnummer für dieses Gebiet, und 
die Zahlen darüber die jeweils im LOW COL-Befehl einzuge¬ 
benden Farben. 

Die Hilfslinien innerhalb der einzelnen Gebiete müssen so 
gewählt werden, daß sie jeweils nur zwei weitere Nachbarn 
haben, wenn Sie die Untergebiete betrachten. Die Farb¬ 
nummer im LOW COL-Befehl muß innerhalb des gesamten Ge¬ 
bietes natürlich einheitlich sein. Wenn Sie in einem 
Gebiet die Hintergrundfarbe wählen, so können hier auch 
drei Nachbarn vorhanden sein. 

Da mittlerweile das Vierfarbenproblem mathematisch gelöst 
wurde, kann man auch sagen, daß man die gesamte 'Landkar¬ 
te' mit vier Farben einfärben kann, egal wie die Landkarte 
aussieht und ohne, daß benachbarte Gebiete die gleiche 
Farbe haben müssen. 

Wer will kann sich auch ein Automatikprogromni schreiben, 
das die Farben in den benachbarten Gebieter, jeweils mit 
PEEK im Farb-RAM (ab $D800) und Video-RAM (ub $COOO) aus¬ 
liest und die Färbung dann automatisch durclifülirt. 
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Hilfslinien Nummer der Farbe im LOW COL-Befehl 

1, 2, 5 Farben für LOW COL-Befehl j'l^l Farbe des Gebietes 
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2.5.5 Hochauflösende Grafik Bit Paddies 


Auch mit Paddies lassen sich Formen in hochauflösender 
Grafik darstellen, wenn man je ein Paddle für die X- und 
Y-Richtung hernimmt. Dies ist zwar etwas mühsamer und 
erfordert mehr Geschick, aber durchaus realisierbar. Wir 
haben dieses Beispiel auch gewählt, um Ihnen die Bewe¬ 
gungsmöglichkeiten mit Paddies auf dem Bildschirm dar¬ 
zustellen. Da alle anderen Programmstücke analog den bis¬ 
her beschriebenen Unterkapiteln von Kapitel 2.5 sind, 
wollen wir hier nur das Programm für die einfache hoch¬ 
auflösende Grafik darstellen. 


100 HIRES0.7 
102 Xb10 
104 V=10 
110 P0»POT(0) 

120 P1=PÜT<1) 

125 XR«X 

130 IFP0>170THEN X«X-1 
132 IFP0<85THEN X*X+1 
140 IFX>319THBNX=X-319 

145 IFX<10THENX=10 

146 Vfl=V 

150 IFP1>170THEN V-V-1 
152 IFPK85THEN V«=V+1 
160 IFV>199THENV=V-199 

165 IFV<10THENV«10 

166 LINE Xfl-10.VR.XR-5.VR.2 

167 LINE XR+10iVR.XR+5.VR.2 

168 LINE XR/t'R-10,XR.VR-5.2 

169 LINE XR/t'R+10.XR.VR+5.2 

170 LINE X-10.V,X-5/t’. 2 
180 LINE X+10.V.X+5/y.2 
190 LINE X/V-10 .X/t'-5.2 
200 LINE X. V+10.X/t'+5.2 

202 GETZ* 

203 IFZ$»""THEN205 

204 Z=VRL<Z*) 

205 PLOT X/tLZ 
210 GOTO110 


Der Beginn ist auch analog den vorher angesprochenen Pro¬ 
grammen, zunächst wird die hochauflösende Grafik einge¬ 
schaltet und die Anfangsposition festgelegt. Sie befindet 
sich bei den Koordinaten (10,10). Dann werden die beiden 
Paddies abgefragt, und der alte X-Wert der Variablen XA 
wird zwischengespeichert. Die Zeilen 130 bis 145 beinhal- 
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ten die Positionierung der X-Koordinaten und die Zeilen 
146 bis 165 die entsprechenden Umsetzungen für die Y-Ko- 
ordinaten, mit Zwischenspeicherung des alten Wertes in YA. 

Da wir den aktuellen Punkt durch je zwei senkrechte und 
waagerechte Linien anzeigen wollen, darf die X-Koordinate 
nicht kleiner als 10 werden. Die Abfrage der Paddlewerte 
(die Paddies sind nichts anderes als ein Potentiometer) 
wird so geschaltet, daß bei den Werten im unteren Drittel 
der aktuelle Punkt nach rechts und bei dem oberen Drittel 
der aktuelle Punkt nach links bewegt wird. Im mittleren 
Drittel erfolgt keine Bewegung. Dadurch ist keine Ge¬ 
schwind igke it sänderung bei der Bewegung des Punktes gege¬ 
ben. Dies ist für das Zeichnen von ununterbrochenen Linien 
unerlässlich. Falls Sie gestrichelte Linien haben wollen, 
können Sie die Potentiometereinstellung (zwischen 0 und 
255) auch anders einteilen und in bestimmten Bereichen den 
Punkt jeweils um zwei und mehr Bildschirmpunkte wandern 
lassen. 

Bei der einfachen Grafik bedeutet die *2' als Zeichen¬ 
farbe, daß der jeweilige Punkt invertiert wird. Dies muß 
bei der Darstellung des Hilfskreuzes so sein, damit bei 
der Koordinatenanzeige nicht ein bereits gezeichnetes Bild 
zerstört wird. Am besten versteht man das Programm durch 
Ausprobieren. 

Die Zeilen ab 202 dienen zum Umsetzen der Zeichenfarbe und 
zum Setzen des eigentlichen Punktes. 


2.6 Neue Zeichen «it DESIGN 


Im letzten Kapitel über Grafik-Befehle wollen wir auf die 
Änderung des Zeichensatzes eingehen. Zuständig sind dafür 
- ähnlich wie bei den Sprites - die Befehle DESIGN2 und 
DESIGNS. DESIGN2 ändert dabei Zeichen im Normalmodus und 
DESIGNS ist der entsprechende Befehl für den Mehrfarben- 
Modu s. 

In den Unterprogrammen wird der DESIGN-Befeh 1 etwas miß¬ 
braucht, da als Parameter noch die Stelle am Bildschirm 
(in Zeilen und Spalten) angegeben wird. Zunächst das 
Listing: 


100 HIRES6,7:P.EM ZEICHENPOSITIONIEREN IN HI RES 

110 C0L0IJR6.15 

200 CH=1:Z=5:3=7:GOSUB1000 
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210 CH=1:Z=10:S=7:GOSUE1000 

220 CH=2:Z=10:S=27:GOSUE1000 

300 PRUSE10 

310 MULTI7.4,5 

320 CH=1 ; Z=5 : S=7 '• GOSUB2000 

330 Z=7 : FORS=0Ti;i38STEP2 : GÜ3IJE2000 : HEXT 


340 PAUSE10 

500 REM HEUE ZEICHEH FUER TEXTMÜDUS 
510 CSET0: REM GRAFIK-MODUS AUS 


520 MEM :REM ALTEH ZEICHEHSATZ HACH $E000 

530 z=0 ;rem zum ZEICHEHDEFIHIEREH 

540 CH=1:3=0:GOSUB1000 : REM HEUER KLAMMERAFFE 

550 CH=2:S=1:GOSUE1000 : REM HEUES A 

560 CH=2:S=6:GOSUB2000 : REM HEUES F 

570 CH=1;S=7:GOSUE2000 : REM HEUES G 

580 P0KEGRAPHIi::S+33. 1 • REM HIHTERGRUHDF. 0 

590 POKEGRAPHICS+34,0 : REM HIHTERGRUHDF. 1 


600 POKEGRAPHICS+35.2 


REM HIHTERGRUHDF. 2 


610 POKEGRAPHICS+22.PEEKOjRAPHIC:3+22:)OR16 : REM MCM 
620 PRIHT",TIÜAEi;:DEFG" :REM IH CTRL-GELB (.m.7) 

630 PRIHT 

640 PRIHT":eABCDEFG"-REM IH i::=-GELE a-JR. 15) 

650 PRIHT"Ä10 :f ris" 

660 PAUSE10 

700 REM GESAMTEM ZEICHEHSATZ AUF BILDSCHIRM BRIHGEH 

710 FCOL0.0.40.25.7:REM FARE-RAM EESCHREIEEH 

720 POKEGRAPHICS+22.. 200 : REM MCM AUS 

730 CSET2: REM ZEICHEHSATZ (HORMALE ZEICHEH) ZEIGEH 

740 PAUSE 10 


750 MULTI0.. 1,. 15- REM JETZT MULTI-ZEICHEH MEHRFARBIG 
760 PAUSE 10 
770 HR;M 


780 EHD 

1000 C G 0 T 0 ( 1000+100 C H ) 

1100 DES IGH2 j $6000+320*2+8*8 
1110 lü. . .B. . . . 

1120 e..BEB... 

1130 e.EBEEE.. 

1140 lüEEEEEBE. 

1150 SEEBBEEB. 

1160 lüEBEEBEE. 

1170 eEEBEEBE, 

1180 lüEEBEBEE, 

1190 RETIJRH 

1200 DES IGH2.. $E000+320*Z+8*S 

1210 eSB_BE 

1220 lü.EE. .BE. 

1230 §. .EBBE.. 

1240 §..EBBE.. 

1250 @. . B'B'BB. . 

1260 0.BB..EiI:i. 
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127ü @EB....EE 
1280 0EE„...EE 
12LH0 RETURN 

1U00 DES IGH2$E000+320i^^Z+öi^<S 
1390 RETURN 

2000 C G 0 T0 (2000+100C N ) 

2100 DES IGN3.. $E000+320*2+8*S 
2110 @BEBC 
2120 @BECC 
2130 @ECCC; 

2140 dCCCC 
2150 0DCCC 
2160 0DDCC 
2170 SDDDC 
2180 eDDDD 
2190 RETURN 

2200 DESIGNS.TEGGG+SSG^Z+SfS 
2210 lüBEBE 
2220 ilBEBE 
2230 eBBBB 

2240 ecccc 

2250 0CCCC 
2260 lüCCCC 
2270 SDDDD 
2230 @DDDD 
2290 RETURN 

Mit dem Rahmenunterprogramm ab Zeile 1000 können mehrere 
Zeichen im Normalmodus definiert werden. Entscheidend ist 
dazu in Zeile 1000 der CGOTO-Befeh 1, der in Simon’s Basic 
auch Variablen als Sprungziel gestattet. In diesem Falle 
wird er dazu verwendet, aufgrund der Variablen CH in die 
entsprechenden Zeilennummern für die Zeichen (1100, 1200, 

...) zu verzweigen. 

Zunächst wird in Zeile 1100 ein einfarbiges Zeichen neu 
definiert. Da sich der RAM-Bereich für den Zeichensatz und 
die hochauflösende Grafik überlagern, gibt der zweite Pa¬ 
rameter im DESIGN-Befehl im Textmodus eine Adresse inner¬ 
halb des Zeichensatzes an und im Grafikmodus eine Stelle 
am Bildschirm. Die angegebene Lokalisierung bezieht sich 
in unseren Unterprogrammen auf den Bildschirm, da wir die 
Zeichen sofort sichtbar machen wollen. Wenn Sie nur in den 
Zeichensatz schreiben wollen, so ersetzen Sie den Term für 
die Zeile durch Null und geben Sie in der Variablen S die 
Nummer des Zeichens an. Dies könnte dann wie folgt ausse- 
hen: DESIGN2,$E000+8*S oder DESIGN2,$E000+8*40, wenn Sie 
das 40. Zeichen im Zeichensatz ändern wollen. 

Die Definition des Zeichens geschieht ähnlich den Sprites 
und braucht hier nicht näher erläutert zu werden. 
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Ab Zeile 2000 befinden sich die entsprechenden Unterpro¬ 
gramme für mehrfarbige Zeichen. Hierzu ist noch zu bemer¬ 
ken, daß mehrfarbige und einfarbige Zeichen, die mit dem 
DESIGN-Befehl erstellt wurden im Textmodus gemischt werden 
können. 

Im Hauptprogramm schalten wir zunächst die hochauflösende 
Grafik (Normalmodus) ein und setzen die Farben für Hinter¬ 
grund und Rahmen. Ab Zeile 200 werden die entsprechenden 
Parameter für die Unterprogramme ab Zeile 1000 gesetzt, um 
einige Beispiele zu erhalten. Ab Zeile 300 wird ähnliches 
für mehrfarbige Zeichen durchgeführt. 

In Zeile 500 wird zunächst die Grafik ausgeschaltet und 
der alte Zeichensatz wird in den Grafikspeicher gelegt. 
Dann werden einige Zeichen im Zeichensatz geändert (Zeile 
540 bis 570). Die Zeilen 580 und 600 dienen dem Setzen der 
Hintergrundfarben 0, 1 und 2, da diese allen Zeichen ge¬ 
meinsam sind. In Zeile 610 wird noch der Multi-Colour-Mo- 
dus eingeschaltet, was uns mehrfarbige Textzeichen er¬ 
laubt, jedoch gleichzeitig nur noch acht verschiedene Far¬ 
ben zuläßt. Ab Zeile 620 befinden sich noch zwei Beispiel¬ 
zeilen, die aufzeigen sollen, daß der Mehrfarbenmodus nur 
in Erscheinung tritt, wenn die gewählte Farbe bzw. ihre 
Nummer größer als 7 ist (zweite BeispieIzeile). 

Ab Zeile 700 wird gezeigt, wie man auf einfache Weise den 
gesamten Zeichensatz am Bildschirm anzeigen kann. Durch 
den MEM-Befehl wurde der Zeichensatz bereits in den Gra¬ 
fikspeicher kopiert. Das Farb-RAM kann bequem mit FCOL be¬ 
schrieben werden. Wird anschließend der Multi-Colour-Modus 
ausgeschaltet und die hochauflösende Grafik eingeschaltet, 
so erscheinen die Zeichen als normale Zeichen, da die im 
FCOL-Befehl angegebene Farbe kleiner als 8 ist. 

Die mehrfarbig definierten Zeichen erscheinen richtig, 
wenn mit MULTI 0,1,15 einerseits das Farb-RAM mit der Far¬ 
be 15 (hierrgelb) beschrieben wird und andererseits der 
Mehrfarben-Modus eingeschaltet wird. 

Am Ende des Programmes wird der veränderte Zeichensatz mit 
NRM wieder abgeschaltet. 





Spiite-Befehle 
am Beispiel RAKETE 5 
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3. Sprite-Befehle am Beispiel RAKETE 


In den Bänden 1 und 3 haben wir bereits die Möglichkeiten 
der Sprite-Programmierung besprochen, wobei wir in Band 3 
dazu vier zusätzliche Basic-Befehle entwickelt haben. Mit 
diesem Kapitel wollen wir gleich zwei Aufgaben erfüllen: 
zum einen wollen wir für die kontinuierlichen Leser dieser 
Buchserie das Beispiel aus Band 3 entsprechend umschrei¬ 
ben, zum anderen für die Leser, die nur etwas über Simon's 
Basic wissen wollen, ein Beispiel bringen, in dem alle 
wichtigen Punkte zusammengefaßt sind. 

Zunächst werden wir dabei auf das Definieren der Sprites 
eingehen und anschließend gleich auf ihre Bewegung. Für 
Spiele unerläßlich sind natürlich die Kollisionsprüfungen 
Sprite/Sprite und Sprite/Hintergrund. Auch das Vergrößern 
und Verkleinern von Sprites soll besprochen werden. 

Da es doch ein recht komplexes Beispiel ist, was im fol¬ 
genden Kapitel vorgestellt wird, haben wir gleich die Mög¬ 
lichkeit genutzt und andere Befehle von Simon's Basic in 
das Programm mit integriert, obwohl sie nicht direkt etwas 
mit Sprites zu tun haben. 

Wer die Unterschiede in der Programmierung gegenüber an¬ 
deren Methoden herausfinden möchte, der sei auf Anhang 1 
verwiesen, wo das Komplettlisting des entsprechenden 
Beispiels aus Band 3 abgedruckt ist. Die Zeilennummern 
wurden in dem neuen Beispiel so vergeben, daß ein Ver¬ 
gleich relativ einfach möglich ist. Dies bedingt na¬ 
türlich, daß die Zeilennummern nicht sauber vergeben 
werden konnten. 


3.1 Sprites definieren 


Da wir die Kenntnis der Behandlung von Sprites voraus¬ 
setzen, wollen wir gleich mit mehrfarbigen Sprites be¬ 
ginnen. Die erste wichtige Zeile dafür in unserem Bei¬ 
spielprogramm ist 


150 CMOB 14,0 

Damit werden die beiden Farben eingeschaltet, die allen 
Sprites gemeinsam sind. Wir haben hier die Farben 14 
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(hellblau) und 0 (schwarz) gewählt. Für die Definition von 
Sprites muß zunächst der DESIGN-Befehl angewendet werden, 
der angibt, ob ein Sprite einfarbig (erster Parameter: 0) 
oder mehrfarbig (erster Parameter: 1) ist. Der zweite Pa¬ 
rameter gibt die erste Speicherzelle des Blockes an, in 
dem die Daten des Sprites abgelegt werden sollen. In un¬ 
serem Beispiel haben wir - üblicherweise - die Blocks 13, 
14 und 15 herangezogen. 

Dem DESIGN-Befeh 1 folgen jeweils 21 Zeilen, denen ein 
'Klammeraffe' vorangestellt ist, mit der Beschreibung der 
Sprites. 

Hier zunächst unsere Beispiel-Sprites: 

397 REM i***************************************** 

398 REM W. DRTEH EUER SPRITE 0 * 

399 REM 

1000 DESIGN 1.13*64 

1002 3.BE. 

1004 @.BB. 

1006 3.BB. 

1008 3....CBBC.... 

1010 3....CBBC.... 

1012 3....CBBC.... 

1014 3....CBBC,... 

1016 3....CBBC.... 

1018 3.D..CBBC..D. 

1020 3,D..CBBC..D. 

102>i! 3 ■ D. CCBBCC ■ D. 

1024 0.DCCCBBCCCD. 

1026 3.DCCCBBCCCD. 

1028 3CriCCCEBCCCDC 
1030 3CDCCCBECCCDC 
1032 3CriCCCBBCCCDC 
1034 3CDCCCEBCCCDC 
1036 3CDCCCEBCCCDC 
1038 3...B.BB.B... 

1040 3...B.BB > B... 

1042 3...B.BB.B... 

1097 REM ***************************************** 

1098 REM * IiRTRS FUER SPRITE 1 * 

1099 REM ***************************************** 

1100 DESIGN 0.14*64 

1102 3.. . . BB.. BB... . 

1104 3....BB............BB.... 

1106 3. . . . BBi .. . BB. . . . 

1108 3. . . . EE.BE. . .. 

1110 3. . .. BB.BB. .. . 

1112 3_BE.BB_ 

1114 3....B'B..... B'.... 
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1116 

Q. 


. BB 

1118 

e. 

NB« SB ■ N N ■ 

.BB 

1120 

Q. 

B « ■ BB H B B B 

.EE 

1122 

Q. 

B B B BBb B B B 

.BB 

1124 

Q. 

bbbBBnbbb 

.BB 

1126 

Q. 

bbbBBnbb« 

.BB 

1128 

Q. 

bbbBB'nbbb 

. EE 

1130 

Q. 

bbbBBbbbb 

. BB 

1132 

Q. 

BBB BBb B I b 

. EE, 

1134 

Q. 

BBB BB BBB« 

. BB 

1136 

Q. 

BBB BB N BBB 

. BE 

1138 

Q. 

« B B BB B B B B 

.BB 

1140 

Q. 

BBB BB B B B B 

. BB 

1142 

Q. 

bbbBBbbbb 

. BB 


1197 REM 

1198 REM w. DRTfiS EUER SPRITE 2 % 

1199 REM 

1200 DESIGN 0.15*64 

1202 SEE.EE 

1204 lÜBE.BE 

1206 SEE.BE 

1208 @BE.BE 

1210 @EB.BE 

1212 SEE.BE 

1214 @BB.BE 

1216 @BE.BE.EE 

1218 QBE.EBBE.BE 

1220 QBE.BBBBEB.BE 

1222 QBBBBEBBBBE..,.BBBEBBBEBE 
1224 QBE••■>•••EEiiEE••■•■••EE 

1226 QBE.EBBE.EE 

1228 QBE.BE.BE 

1230 QBE.BE 

1232 ÜBE.BE 

1234 QBE.BE 

1236 QBE.EE 

1238 QBE.EE 

1240 QBE.BE 

1242 QBE.BE 


Wie man sieht, sind die Sprites 1 und 2 nur einfarbig 
dargestellt. In diesen Fällen wird durch den Buchstaben 
’B' bestimmt, an welcher Stelle bei den Sprites ein far¬ 
biger Punkt erscheinen soll. Alle anderen Bildschirmpunkte 
werden durch einen einfachen gekennzeichnet. Bei den 
mehrfarbigen Sprites (Sprite 0) werden die Buchstaben ’B', 
’C' und zu Unterscheidung der einzelnen Farben heran¬ 
gezogen. Dabei steht das ’B‘ für die Farbe, die im CMOB- 
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Befehl als erstes angegeben ist, und ’D' für die zweite 
Farbe (hier: schwarz). Das ’C ist Platzhalter für die dem 
Sprite eigene Farbe. 

Wie man sieht, ist anhand des Listings das spätere Er¬ 
scheinungsbild des Sprites offensichtlich. Die abstrakte 
Umdenkerei von DATA-Zeilen auf das spätere Aussehen - was 
sowieso kaum möglich war - entfällt. Ein Sprite-Editor 
kann entfallen, da diese direkt am Bildschirm (mittels 
Cursor) entwickelt werden können. Nach dem Zeichnen am 
Bildschirm sollten Sie natürlich nicht vergessen, die ein¬ 
zelnen Zeilen mit RETURN noch an das Programm zu überge¬ 
ben. 


Mit den bisher vorgestellten Befehlskombinationen werden 
die Daten für die Sprite beim Programmablauf in den ent¬ 
sprechenden Blocks generiert. Dabei ist es auch möglich, 
einer Spritenummer mehrere Bildinhalte zuzuordnen, wobei 
diese mit dem DESIGN-Befehl immer wieder in die ent¬ 
sprechenden Blocks geschrieben werden müssen, um sie an 
das Programm zu übergeben. Da dieser Befehl aber sehr 
schnell arbeitet, sind kaum Programmverzögerungen zu 
erwarten. An dem CMOB-Befehl und in Kapitel 1 haben wir 
schon gesehen, daß die Sprites bei Simon's Basic MOB 
(Moveble Object Block) genannt werden. Dieser Begriff ist 
auch in den meisten Sprite-Befeh len enthalten. So auch im 
nächsten Befehl, mit dem nach dem Aussehen der Sprites 
weitere Parameter festgelegt werden. 


2000 MOB 
2100 MOB 
2200 MOB 


SET 0,13,7,0,1 
SET 1,14,5,0,1 
SET 2,15,1,0,0 


Damit haben wir wieder einige übliche POKE-Befehle er¬ 
setzt. Vergleichen wir kurz mit dem Listing im Anhang. 
Dort werden in den Zeilen 2010, 2100 und 2200 die Blocks 
nochmals für die Spritenummern festgelegt. Das Abspeichern 
der Daten aus den DATA-Zeilen entfällt natürlich, dies 
übernimmt ja der DESIGN-Befehl. In dem Beispiel aus Band 3 
werden die Sprites mit dem SPRITE-BefehI eingeschaltet. 
Ein GRENZEN-Kommando gibt es in Simon's Basic nicht. Das 
Festlegen der Farben in den Zeilen 2080, 2180 und 2280 
wird auch von dem MOB SET-Befehl übernommen. Weiterhin 
legt dieser Befehl die Priorität gegenüber dem Hintergrund 
fest, die wir in dem anderen Beispiel nicht verwendet ha¬ 
ben und gibt für das Register 28 den entsprechenden Wert, 
ob dieses Sprite in normaler Grafik oder Mehrfarbenqrafik 
dargestellt werden soll (altes Beispiel: Zeile 2090). Wie 
wir an den drei Zeilen oben sehen, gibt der erste Para¬ 
meter sicherlich die Spritenummer an und der zweite Para¬ 
meter die jeweilige Blocknummer, die wir ja schon beim 
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DESIGN-Befeh 1 kennengelernt haben. Wenn Sie das alte Bei¬ 
spiel bisher genau verfolgt haben und einen Vergleich mit 
dem MOB SET-Befehl durchgeführt haben, haben Sie sicher¬ 
lich auch festgestellt, daß der dritte Parameter die dem 
Sprite eigene Farbe angibt. Der vierte Parameter gibt noch 
die Priorität gegenüber den Bildschirmtexten an und der 
fünfte Parameter die Farbauflösung. Die Werte im letzten 
Parameter (0,1) entsprechen wieder dem DESIGN-Befeh 1. 

Daß manche Angaben doppelt erfolgen, liegt an der beibe¬ 
haltenen Struktur des Commodore 64. Ein als mehrfarbiges 
Sprite definierter MOB muß nicht unbedingt bei seiner Dar¬ 
stellung mehrfarbig angesprochen werden. Diesen Effekt ha¬ 
ben wir ja auch bereits schon in Band 3 besprochen. 

Nun haben wir zwar schon die Sprites entworfen und die Pa¬ 
rameter definiert, aber auf dem Bildschirm wird noch 
nichts dargestellt. Dazu dient der MMOB-Befehl. Damit wird 
das Sprite am Bildschirm positioniert und kann auch bewegt 
werden, seine Größe wird festgelegt und die Geschwindig¬ 
keit für die Bewegung. Da wir in unserem Beispiel Sprite 1 
erst auf Anweisung des Anwenders sichtbar machen wollen, 
werden im Vorspann nur Sprites 0 und Sprites 2 vorbesetzt 
mit: 

2030 MMOB 0,X0,Y0,X0,Y0,0,255 
2230 MMOB 2,X2,Y2,X2,Y2,0,255 

Nachdem wir vorher definiert haben 

2010 X0=30 
2020 Y0=50 
2210 X2=100 
2220 Y2=100 

Aus mnemotechnischen Gründen wollen wir die Variablen XO 
und YO für die X- und Y-Koordinaten von Sprite 0 verwen¬ 
den, XI und Y1 entsprechend für Sprite 1, und X2 und Y2 
für Sprite 2. 

Wie in allen Spr ite-Befehlen gibt der erste Parameter auch 
wieder die Nummer des Sprites an, die von 0 bis 7 durch¬ 
numeriert sind. Im MMOB-Bfehl gibt das erste Koordinaten¬ 
paar den Punkt an, an dem das Sprite am Bildschirm auf¬ 
taucht (Berechnung im Normalgrafikmodus) und - falls es 
bewegt werden soll - praktisch den Ausgangspunkt dar¬ 
stellt. Das zweite Koordinatenpaar (4. und 5. Parameter) 
stellen die Zielkoordinaten dar. Da wir unsere Sprites zu 
Beginn nicht bewegen wollen, haben wir beide Koordinaten¬ 
paare gleich gewählt. 
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Der vorletzte (6. Parameter) gibt die Größe des Sprites 
an, wobei wir alle Sprite zunächst in Normalgröße dar¬ 
stellen wollen (vergleiche Kapitel 3.5). 

Der letzte Parameter gibt die Geschwindigkeit an, die von 
1 bis 255 reguliert werden kann, wobei (.unlogischerweise) 
255 die langsamste Geschwindigkeit darstellt. Achtung: Im 
Gegensatz zu den in Band 3 vorgestellten Bewegunsroutinen 
für Sprites werden bei Simon’s Basic erst die Bewegungen 
durchgeführt, bevor das Basic-Programm fortgesetzt wird. 
Eine Interruptsteuerung liegt nicht vor. 

Damit haben wir unsere Sprites entworfen, die Parameter 
festgelegt und sie auf dem Bildschirm dargestellt. Im 
nächsten Kapitel wollen wir auf die Bewegung der Sprites 
eingehen. 


3.2 Sprites bewegen 


Es gibt sicherlich andere Möglichkeiten und Aufgabenstel¬ 
lungen Sprites zu bewegen, als die in diesem Kapitel vor¬ 
gestellte. Wenn Sie die Sprites (über Tastatur oder auch 
Joystick) steuern wollen, so kann Ihnen das vorliegende 
Beispiel jedoch als Grundlage dienen. Andere Bewegungs¬ 
formen (hüpfende Känguruhs) sind im Handbuch dargestellt. 

Auch in diesem Beispiel wollen wir Geschwindigkeitsänder¬ 
ungen zulassen. Die Bewegung wird über den RLOCMOB-Befeh 1 
durchgeführt. Mit diesem Befehl werden zunächst die Spri- 
tenummer, dann Zielkoordinaten und schließlich noch (wie 
bei dem MMOB-Befehl) die Größe und Geschwindigkeit des 
Sprites festgelegt. 


Beschränken wir uns zunächst wieder auf die Bewegung von 
Sprite 0. Zunächst wollen wir wieder den Rahmen für die 
Bewegung schaffen mit 

3000 PRINT’(CLR/HOME)" 

3002 GETA$ 

3004 IF A$ NE “” THEN C$=B$ : B$=A$ (NE für ungleich) 


Wie in den anderen Bänden, soll auch hier die Steuerung 
des Sprites über neun Buchstabentasten wie folgt erfolgen: 


Q - oben links 
W - oben 
E - oben rechts 
D - rechts 
C - rechts unten 
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X - unten 
Z - unten links 
A - links 

S - stop / anhalten 

Wenn das Sprite anhalten soll, (S) so sind die Zielkoordi¬ 
naten gleich den Startkoordinaten und wir können folgenden 
Befehl eingeben: 

3030 IF B$=“S' THEN : RLOCMOB 0,X0,YO,EO,255 : G0T03002 

Wie schon gesagt, gibt beim RLOCMOB-Befeh 1 der erste Para¬ 
meter die Spritenummer an, die beiden nächsten die Ziel¬ 
koordinaten und die beiden letzten Größe und Geschwindig¬ 
keit. Da die Zielkoordinaten in diesem Fall gleich den An¬ 
fangskoordinaten sind, kann man die Geschwindigkeit frei 
wählen. Ansonsten wollen wir für Größe und Geschwindigkeit 
folgende Variable verwenden: 

EO - Größe Sprite 0 
El - Größe Sprite 1 

E2 - Größe Sprite 2 (vergl. auch Kapitel 3.5) 

GO - Geschwindigkeit Sprite 0 
Gl - Geschwindigkeit Sprite 1 
G2 - Geschwindigkeit Sprite 2 

Den Sprung auf Zeile 3002 geben wir aus Rechenzeitgründen 
vor. Da wir Fehlermeldungen von Simon’s Basic vermeiden 
wollen wenn wir einen Rand erreichen, müssen wir vor einer 
Bewegung des Sprites noch die Koordinaten überprüfen mit 

3032 IF XO LT 1 THEN X0=1 
3034 IF XO GT 318 THEN X0=318 
3036 IF YO LT 1 THEN Y0=1 
3038 IF YO GT 198 THEN Y0=198 

Da der verwendete Typenraddrucker das 'Kleinerzeichen' und 
'Größerzeichen' nicht darstellen kann (siehe auch Parame¬ 
tertypen im Anhang) werden sie durch die in FORTRAN üb¬ 
lichen Bezeichnungen LT und GT ersetzt. 

In den folgenden Zeilen werden jeweils die Sprites in die 
gewünschte Richtung bewegt und anschließend die Koordi¬ 
naten des Sprite mit den Werten für die Zielkoordinaten 
besetzt. Dazu wird jeweils der Wert 'GO' addiert oder sub¬ 
trahiert. In GO wird also die Geschwindigkeit in Punkten 
pro Bewegung angegeben. 

3040 IF B$ = ''D'' THEN : RLOCMOB 0 ,X0 + G0, YO , EO ,G : X0 = X0 + G0 

: G0T03002 

3050 IF B$ = ''E’' THEN : RLOCMOB 0 ,X0 + G0 , YO-GO , EO , G : 
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3060 

IF 

■ 

■ 

II 

CD 

X0=X0+G0 : Y0=Y0-G0 : G0T03002 

THEN : RLOCMOB 0 , XO , YO-GO , EO , G : 

3070 

IF 

B$="Q' 

Y0=Y0-G0 : GOTO 3002 

THEN : RLOCMOB 0 , XO-GO , YO-GO,EO,G : 

3080 

IF 

■ 

< 

■ 

II 

CD 

X0=X0-G0 :Y0=Y0-G0 : G0T03002 

THEN : RLOCMOB 0,XO-GO,YO , EO , G : 

3090 

IF 

■ 

N 

■ 

II 

CD 

X0=X0-G0 : GOTO 3002 

THEN : RLOCMOB 0 , XO-GO , YO+GO , EO , G : 

3100 

IF 

a 

X 

a 

II 

CD 

X0=X0-G0 : Y0=Y0+G0 : G0T03002 

THEN : RLOCMOB 0 , XO , YO+GO , EO , G : Y0=Y0+G0 : 

3110 

IF 

a 

o 

a 

II 

CD 

GOTO 3002 

THEN : RLOCMOB 0 , XO+GO , YO+GO , EO , G : 

Damit 

wäre die 

X0=X0+G0 : Y0=Y0+G0 : G0T03002 

Bewegung für Sprite 0 abgeschlossen und wir 


können die Bewegung für Sprite 1 besprechen. Sprite 1 
stellt den 'Schuß' dar und soll eingeschaltet werden, wenn 
die Taste mit dem Pfeil nach oben gedrückt wird. Die Koor¬ 
dinaten beim Abschuß sind natürlich die von Sprite 0 und 
entsprechend werden die Variablen XI und Y1 auch besetzt. 
Der Schuß soll jeweils in unserem Beispiel am Bildschirm 
nur nach oben gehen, so daß nur die Y-Koordinate um eins 
zu vemindern ist. Außerdem muß noch ein Merker gesetzt 
werden, daß bereits das Sprite mit dem Schuß aktiviert 
wurde, und für die Bewegung von Sprite 0 wird noch der 
alte Wert (C$) herangezogen. Die Geschwindigkeit wurde ab¬ 
sichtlich auf '!' gesetzt, damit auch eine korrekte Kolli¬ 
sionsprüfung stattfinden kann. Natürlich ist dieses Bei¬ 
spiel kein atemberaubendes Spiel, da das Basic die Sache - 
trotz der Hilfsmittel - recht langsam ablaufen läßt. Der 
erste Befehl für unseren Schuß könnte also lauten: 

3120 IFB$='(Pfeil nach oben)" THEN X1=X0 : Y1=Y0 : 

MMOB 1,X1,Y1,X1,Y1-1,E1,1 : S=1 : B$=C$ : G0T03002 

Da wir die Abgabe eines Schusses sperren wollen, wenn be¬ 
reits Sprite 1 eingeschaltet ist, fügen wir noch ein 

3115 IF S THEN 3135 

Damit Sprite 1 auch im folgenden weiter bewegt wird, fügen 
wir in das Bewegungsmenü für Sprite 0 noch ein 

3014 IF S THEN Y1=Y1-G0 : RLOCMOB 1,X1,Y1,E1,1 : 

IF YO LT 5 THEN S=0 : MOB OFF 1 

wobei zunächst die entsprechende Y-Koordinate um die Ge¬ 
schwindigkeit von Sprite 0 vermindert wird - damit bewegen 
sich beide mit gleicher Geschwindigkeit. Das Sprite wird 
mit dem RLOCMOB-Befehl bewegt und ausgeschaltet, wenn die 
Y-Koordinate kleiner als 5 ist. Beim Ausschalten des Spri- 
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tes muß natürlich auch der Merker zurückgesetzt werden. 
Das eigentliche Ausschalten wird mit dem Befehl MOB OFF 
durchgeführt. Außer der Spritenummer beinhaltet dieser 
Befehl keinen weiteren Parameter. 


Da wir keinen automatischen Befehl zum Reflektieren an den 
Grenzen zur Verfügung haben, werden wir Sprite 2 wieder 
zufällig bewegen ^vergleiche Band 1), wobei wir für jede 
Richtung eine eigene Zufallszahl zwischen -5 und 5 fest¬ 
legen wollen. Diese Werte müssen natürlich noch auf Plau- 
sibiltät geprüft werden. Anhand dieser Werte können wir 
anschließend das Sprite 
sieht dann wie folgt aus; 


00 Z;<=IHT':i0*RND(6;O-5 
010 ZV=IHT<10i+iRHD'::7>>-5 
20 K2=K2+ZR 
30 t2=V2+ZV 
6040 IF R2<;i0 THEH R2=10 


60 

6 

60 


bewegen 

und 

das Programmstück 

6050 

IF 

7:2>300 TFIEH X2=300 

6060 

IF 

V2<10 THEH 't'2=10 

6070 

IF 

V2>ly5 THEN V2=195 


6030 RLOCMOE 2,R2A'2,E2,1 
60'30 RETURN 


Damit das Unterprogramm auch aufgerufen wird, ergänzen wir 
3006 GOSUB 6000 

Vergleichen wir das ganze nun mit unserem Beispiel aus 
Band 3. Zunächst stellen Sie - rein optisch - fest, daß 
die Zeilen im Bewegungsmenü für Sprite 0 länger sind. Dies 
kommt durch unterschiedliche Konzeption des Bewegungsbe¬ 
fehls. Der FAHRT-Befehl benötigt keine Zielkoordinaten, 
sondern nur die Richtung und die Geschwindigkeit. Da das 
Sprite solange bewegt wird bis es ein anderes FAHRT-Kom- 
mando erhält, ist natürlich das Nachrechnen der jeweiligen 
Position unnötig. Dies fällt besonders bei der Bewegung 
von Sprite 1 auf, da dies in dem Unterprogramm ab Zeile 
5000 nur einmal gestartet zu werden braucht, und sonst 
keine weitere Handhabung erforderlich ist. Das Starten ist 
natürlich hinreichend kompliziert, da die aktuelle Posi¬ 
tion von Sprite 0 im Moment des Starts festgestellt werden 
muß (5010 und 5020). 

Noch einfacher ist die Bewegung von Sprite 2, da dies über 
den GRENZEN-Befehl die obere Hälfte des Bildschirmbe¬ 
reiches für die Bewegung zugewiesen bekommen hat, wobei 
alle Seiten dieses Sprites reflektierend sind. Damit 
entfällt jede weitere Behandlung für Sprite 2 im alten 
Beispiel. 
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Geschwindigkeit ändern 

Da wir in dem MMOB-Befehl und dem RLOCMOB-Befeh 1 jeweils 
erneut die Geschwindigkeit angeben müssen, haben wir die 
Variablen GO, Gl und G2 zur Geschwindigkeitsbestimmung 
herangezogen. In einem kleinen Unterprogramm wollen wir 
nun die Möglichkeit der Änderung der Geschwindigkeit für 
Sprite 0 zulassen. Zuvor müssen wir jedoch noch - wie im 
alten Beispiel auch - aufgrund des Tastendrucks ’G' in ein 
Unterprogramm verzweigen mit 

3135 IF B$='G' THEN GOSUB 3500 : GOTO 3002 

In dem Unterprogramm soll keine Bildschirmabfrage er¬ 
wünscht sein, so daß wir über den GET-Befehl die Tastatur 
abfragen müssen. Die Geschwindigkeit '0' wollen wir nicht 
zulassen, da diese auch über den STOP-Befehl (’S') er¬ 
reicht werden kann. Da über die Tastatur somit die Ge¬ 
schwindigkeiten 1 bis 9 zur Verfügung stehen, wollen wir 
den erhaltenen Wert noch mit 2 multiplizieren um die 
Schrittweite für die Bewegungsbefehle um jeweils zwei 
Bildschirmpunkte zu erhöhen. Auch muß die alte Bewegungs¬ 
richtung wieder an die Variable für die Bewegungsvertei¬ 
lung von Sprite 0 (B$) übergeben werden und unser Unter¬ 
programm kann dann wie folgt aussehen: 

3497 REM i***************************************** 

3498 REM * ÜESCHWIHIUGKEIT REHHERN * 

3499 REM *************#*******»*#******:+:****#***** 

3500 GETG$:IFG$="“THEH3500 

3510 g=vrl(:g$;j 

3520 IFG<1THEH3500 
3530 G0=G*2 
3540 B$=C$ 

3550 RETURH 


3.3 Sprite/Sprite-Kollision 


Auch die Kollisionsprüfung wollen wir in einem Unterpro¬ 
gramm durchführen und ergänzen die Zeile 3006 wie folgt 

3006 GOSUB 6000 : GOSUB 7000 

Wenn Sprite 2 getroffen ist, wollen wir das Programm mit 
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dem RUN-Befehl einfach neu starten, um das Rücksetzen al¬ 
ler Parameter zu vermeiden. Dies ist ja auch nicht weiter 
schlimm, da sowieso keine Punkte oder ähnliches in der 
vorliegenden Version vergeben werden. 

Zunächst müssen wir die Kollisionsabfrage vorbereiten, in¬ 
dem wir zwei DETECT-Befehle vergeben: den einen zum Lö¬ 
schen des Kollisionsregisters und dem anderen zum Abfragen 
der entsprechenden Bits in diesem Register. Durch diese 
Behandlung bedingt, wird natürlich nicht immer sofort 
festgestellt, ob sich zwei Sprites berühren, was Sie am 
Bildschirm auch beobachten können. D.h. die manchmal un¬ 
terbleibende Feststellung einer Kollision vom Betriebssys¬ 
tem her, tritt nun noch im verstärktem Maße auf. 

Da wir zwei verschiedene Behandlungen machen wollen, wenn 
entweder das Geschoß oder unser 'Raumgleiter* mit Sprite 2 
kollidieren, führen wir beim CHECK-Befehl noch eine ent¬ 
sprechende Abfrage durch, und unser Programmstück hat 
somit folgendes Aussehen. 

7000 DETECT 0 
7010 DETECT 0 

7020 IF CHECK(1,2)=0 THEN GOTO 7200 
7030 IF CHECK(0,2)=0 THEN GOTO 7100 
7040 RETURN 

Behandeln wir zunächst den Fall, daß Sprite 1 und 2 kolli¬ 
diert sind. Zunächst schalten wir Sprite 2 mit MOB OFF ab. 
An dieser Stelle möchten wir eine Neuerung gegenüber der 
alten Version bringen, wo wir einfach die Farben des Spri¬ 
tes geändert haben. Damit wollen wir auch aufzeigen, daß 
mit dem DESIGN-Befehl auch eine Umschaltung von Sprites 
möglich ist. In dem frei gewordenen 15. Block nehmen wir 
neue Daten auf, die ein explodierendes Raumschiff darstel¬ 
len sollen (sicherlich können Sie dies noch etwas besser). 
Sprite 1 kann dann ausgeschaltet werden und auch Sprite 0 
(wenn dies nicht an der Kollision beteiligt war). Als Ab¬ 
schluß wollen wir mit unterschiedlichen Pausen noch alle 
drei Farben von Sprite 2 verändern. Für die den Sprites 
allgemein zugedachten Farben ist der CMOB-Befehl zuständig 
und für die spriteeigene Farbe müssen wir jeweils den 
Befehl MOB SET benutzen. Als Programm: 


7200 MOB OFF 2 

7201 lESIOH 1.13*64 

7202 a...DC6BB.... 
7204 a..lCBDCBCB.. 
7206 a...lCBCBDB.. 
7208 e.DCBDCEBBBDC 
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7210 SDCBCDCBDCBCB 
7212 @DBBCBCBCBCDC 
7214 dDDBBBCDCDDCD 
7216 dDCBDCBDCBCBC 
7218 SBCDCBCBDCBCB 
7220 @DBDBDBDCBCBC 
7222 dDCBDBDCBDCBC 
7224 0DCBBBCBCB... 

7226 dDBDBCBCB.... 

7228 QDBBBBCDCB... 

7230 dDBCBCDCBDB.. 

7232 SDCBCBLCE.... 

7234 II....DCBBBBCD 
7236 e...DCBCBDCB. 

7238 0..DBBBDCBBD. 

7240 0.DBEDBDBBDD. 

7242 0...DCBDCB... 

7244 MOE SET 2,15.7.0.1 

7246 MOB OFF 1 

7247 IF T0=0 THEH MOB OFF 0 

7248 FOR 1=1 TO 20 

7250 CMOB 0.8 

7251 PfiUSE 0.9 

7252 MOE SET 2.15.8.0.1 

7253 PfiUSE 0.5 

7254 CMOB 7.8 

7255 PfiUSE 0.1 

7256 MOB SET 2.15.7.0.1 

7257 PfiUSE 0.8 

7258 CMOB 0.1 

7259 PfiUSE 0.7 

7260 MOE SET 2.15.0.0.1 

7261 PfiUSE 0.5 

7262 CMOB 7.8 

7263 PfiUSE 0.2 

7264 MOE SET 2.15.1.0.1 

7265 PfiUSE 0.4 

7266 CMOB 1.6 

7267 PfiUSE 0.1 

7268 NEXT 
7270 RUH 


Bei einer Kollision zwischen den beiden Raumschiffen wol¬ 
len wir dasselbe durchführen, wobei auch das zweite Raum¬ 
schiff explodieren soll. Da die beiden Sprites sowieso 
zwei Farben gemeinsam haben, genügt es einfach, wenn ein 
neuer MOB SET-Befehl gegeben wird, der auch auf das eben 
definierte Sprite zurückgreift. Hiermit ist auch ein Bei¬ 
spiel gegeben, wie zwei verschiedene Sprites auf die glei¬ 
che Definition zurückgreifen. 
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Damit Sprite 0 in Zeile 7247 nicht abgeschaltet wird, müs¬ 
sen wir noch den Merker TO auf ’l' setzen und erhalten so¬ 
mit 

7100 MOB SET 0,15,6,0,1 
7110 T0=1 

Der Übergang zu Zeile 7200 braucht nicht programmiert wer¬ 
den, da diese sowieso folgt. Wenn Sie das Programmstück ab 
Zeile 7100 ändern, sollten Sie darauf achten und ent¬ 
sprechend ein 'GOTO 7200' einfügen. 


3.4 Sprite/Hintergrund-Kollision 


Auch im vorliegenden Beispiel wollen wir die Sprite/Hin¬ 
tergrund-Kollision an der 'Landebasis' durchführen. Durch 
andere Befehle von Simon's Basic (Bildschirm rollen) er¬ 
halten wir eine weitere Vereinfachung. Zunächst können wir 
das Feld H$() mit der Landebasis vergessen und die Lande¬ 
basis direkt am Bildschirm ausgeben. Dem alleinigen Ein¬ 
schalten von Sprite 1 in Zeile 8100 (altes Beispiel) ent¬ 
spricht das Abschalten von Sprite 1 und 2. Das Positionie¬ 
ren unserer Rakete im Ausgangszustand erledigen wir wieder 
mit dem RLOCMOB-Befeh 1. 

Um die Basis ins Bild zu schieben, benutzen wir den Befehl 
RIGHTW für den ganzen Bildschirm. Da sich außer Landebasis 
nur Sprites auf dem Bildschirm befinden und diese nicht 
mitgerollt werden, ist es egal, ob wir zyklisch rollen 
oder mit Nachziehen von Leerzeilen bzw. -spalten. Genau so 
gut könnten wir den Befehl RIGHTB benutzen. 

Mit dem Rücksetzen der Bewegungsrichtung für Sprite 0 und 
dem Setzen eines Merkers können wir das Unterprogramm be¬ 
enden und erhalten: 


8000 REH 

3010 REM # LRHDUHG # 

3020 REM 

3030 PP T NT" "ZMBifisiJSi miatißngmiiaü ar* sns " 

3040 PRINT"Sr B S -IB " 

8050 PRIHT"a ■ SB" 

3060 PRINT"« B " 

3070 PRIHT"'^« W " 

3080 PRINT" ’ia W " 

8090 PRINT" '^a W 

8100 MOE OFF 1 : MOE OFF 2 

8110 REM-RRKETE IN RIJSORNGSZIJSTRNn BRINGEN - 
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8120 X0=150 
6130 V0=70 

8135 RLOCMOB 0.X0/t'0.0.50 

8140 REM - BASIS IN BILD SCHIEBEN - 

8150 F0RI=1T025 
8160 RIGHTW 0.0.39.24 

8220 REM - LAEHGER WERDENDE WARTESCHLEIFE - 

8230 FOR J»1 TO 10*1 
8240 NEXT 
8250 HEXT 

8260 REM - ANFLUGVORBEREITUNG - 

8270 
8280 L=1 
8300 RETURN 

Um nun festzustellen, ob die Landung geglückt ist oder 
nicht, fügen wir im Hauptprogramm noch ein: 

3008 DETECT 1 : DETECT 1 

3010 IF L THEN IF CHECK(0)=0 THEN GOTO 8540 
3012 IF L AND XO GT 238 AND XO LT 242 AND YO GT 180 THEN 
G0SUB9030 

Damit eine Bewegung von Sprite 1 und Sprite 2 nicht unnö¬ 
tig durchgeführt wird, wenn eine Landung vorgenommen wird, 
ändern wir Zeile 3006 noch ab wie folgt: 

3006 IF NOT L THEN G0SUB6000 : GOSUB 7000 

Damit haben wir erreicht, daß die Programmsequenzen zum 
Bewegen von Sprite 0 weiterhin genutzt werden kann. 

In Zeile 3008 wird zunächst das Register für die Sprite/ 
Hintergrund-Kollision gelöscht und mit dem zweiten DETECT- 
Befehl werden die Werte in das Register eingetragen. In 
Zeile 3010 wird die Hintergrundkollision nur abgefragt, 
wenn die Variabel L ungleich 0 ist. übrigens spart die 
Anweisung IF...THEN IF... gegenüber IF... AND...THEN 
Rechenzeit. 

Bei der mißglückten Landung wollen wir auf unser Programm¬ 
stück ab Zeile 7200 zurückgreifen und die Landebasis mit 
dem FLASH-Befehl blinken lassen. Damit erhalten wir: 

8550 FLASH 8,10 

8560 RLOCMOB 2,X0,Y0,0,1 

8570 G0T07200 

Da wir das ganze noch etwas besser gestalten wollen und 
außerdem den FLASH-Befehl rückgängig machen müssen schrei¬ 
ben wir das Programmstück ab Zeile 7200 wie folgt um: 
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7270 MOB OFF 2 
7272 OFF 
7274 PAUSE 5 
7276 RUN 

Bei der erfolgreichen Landung brauchen wir fast gar nichts 
zu ändern. Da eine Bewegung zu diesem Zeitpunkt nicht mehr 
abgefragt wird, kann der FAHRT-Befehl in Zeile 9040 (altes 
Beispiel) entfallen. Ebenso Zeile 9090 da die Variable Hl$ 
nicht mehr gebraucht wird. Statt des Einschaltens von 
Sprite 0 und 2 in Zeile 9080 muß nun noch Sprite 2 mit dem 
MOB SET-Befehl neu gesetzt werden und wir erhalten folgen¬ 
des Programmstück: 

3000 REM ***************************************** 

9010 REM * BEHRHriLUNG ERFOLGREICHE LRNDUNG * 

9020 REM 
9030 L=0 

9050 PRINT''afi«Ö«^ iTLflNDUNG ERFOLGREICH 

9060 FORI=1TO2000 
9070 HEXT 

9080 MOE SET 2.15.1.0.0 
9100 PRINT"n 
9110 RETURN 


3.5 Sprite vergrößern und verkleinern 


Nachdem wir das Definieren von Sprites, ihre Bewegung und 
mögliche Kollision behandelt haben, bleibt nur noch die 
Vergrößerung bzw. Verkleinerung von Sprites. 

Da die Größe von Sprites beim MMOB-Befehl und beim RLOC- 
MOB-Befehl mit behandelt wird, brauchen wir nun noch die 
entsprechenden Variablen (EO, El u. E2) zu besetzen. Da 
sowohl X als auch Y-Richtung in einem behandelt werden 
können, brauchen wir im Hauptprogramm nur noch abzufragen, 
ob die Taste ’V' für Vergrößern oder Verkleinern gewählt 
wurde und schreiben 

3138 IF B$=“V' THEN GOSUB 9500 

In den Variablen für Vergrößerung und Verkleinerung können 
jeweils die Werte 0 bis 3 stehen, wobei bedeuten: 

0 - keine Vergrößerung 

1 - Vergrößerung in X-Richtung 

2 - Vergrößerung in Y-Richtung 

3 - Vergrößerung in beiden Richtungen 
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Zunächst wollen wir die Vergrößerung abfragen und dann die 
entsprechende Spritenummer. Aufgrund der Spritenummer wol¬ 
len wir in eine Zeile verzweigen, wo die entsprechende Va¬ 
riable auf die vorher erfaßte Vergrößerung gesetzt wird. 


3500 

3510 GETRt 

3520 IFh$=""THEN3510 
3530 H=VHL';>!$) 

3540 IFR>3THEH9510 
3550 GETHR$ 

3560 IFHR$=""THEN3550 
3570 HR=VRLaiR$;' 

3580 IFHR72THEN3550 

3530 LiH HR+1 GOTO 3600.. 3610; 3620 

3600 E0='R : RETURH 

9610 E1=R : RETURN 

3620 E2=R : RETURN 


Aber die Vergrößerung wollen wir auch noch 
ren Stelle verwenden, nämlich bei der 
Sprites und fügen deshalb ein 

7269 GOSUB 7300 


an einer ande- 
’Explosion' der 


Dann kopieren wir einen Teil der Zeilen ab 7248. Vorher 
müssen wir jedoch noch die Größe des Sprites verändern und 
erhalten somit: 


3300 

FOR 1=1 

TO 

20 




7301 

RLOCNOB 

iil J 

*. > ••■i 
'l Cm .* 

V2;3; 1 

7302 

MOB SET 

d > 

15; 

Oj 

10; 

1 

7303 

PRUSE 0. 

5 





7304 

cnoB 7>3 





7305 

PRUSE 0. 

1 





7306 

MOB SEP 

ii! > 

15; 

»■' j 

. 0; 

1 

7307 

PRUSE 0. 

t* 





7308 

CflOE 0.. 1 






7303 

PRUSE 0. 

7 





7310 

RGB SET 

2 .1 

15; 

0.: 

i 0 ; 

1 

7311 

PRUSE 0. 

Cj 





7312 

CNOB 7,. 8 






7313 

PRUSE 0. 

2 





7314 

MOE SET 

cl .* 

15; 

1. 

10; 

1 

7315 

NEKT 






73il6 

RETURN 











Sprite-Befehle 


97 


100 REM **it!i+ii+i*JH***#***#*if********i+i****i+ii+i***i+i4i*4i** 

101 REM * R R K E T E / S P R I T E S ♦ 

102 REM 

110 COLÜUR 6.6 
150 CMÜE 14,. 0 
997 REM 

999 REM * DRTEH FUER SPRITE 0 M 

999 REM ***************************************** 

1000 DES ION 1.13.4i64 

1002 0.£B. 

1004 0 .££. 

10106 0.££. 

1008 0....UBBC. . . . 

1010 0....CBEC_ 

1012 0....CBEC_ 

1014 0_CBBC_ 

1016 0_CBBC_ 

1018 0.ri..CBBC..n. 

1020 0.ri. .CBBC. .D. 

1022 0.D.CCBBCC.n. 

1024 0.nCCCBBCCCn. 

1026 @.riCCCBBCCCD. 

1028 @CriCCCBBCCCDC 
1030 0CIICCCBBCCCDC 
1032 0CIICCCBBCCCDC 
1034 0CDCCCBBCCCriC 
1036 0CriCCCBBCCCDC 
1038 0...B.BB.B... 

1040 0...B.BB.B... 

1042 0...B.BB.B... 

1097 REM 

1098 REM * DRTRS FUER SPRITE 1 * 

1099 REM ***4!*****»**#***********#****#it!*********# 

1100 DESIGN 0.14*64 

1102 0....BB......BB.... 

1104 0. . . .BB.BB. . . . 

1106 @....BB .BB. .. . 

1108 0. .. . BB. BB.... 

1110 0. . . . BB.BB. . . . 

1112 0.... BB..BB.... 

1114 0 _BB.BE_ 

1116 0.... BB.BB.... 

1118 0.. . .BB.BE. . . . 

1120 0....BB.BB.... 

1122 0....BB .BB. . . . 

1124 0_BE.BE_ 

1126 0_BB.BE_ 

1128 0....BB.BB.... 

1130 0. . . . BB. BB.... 

11 32 0....BB.BB.... 

1134 0 _BB.BB_ 
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1136 

0 . . . 

.BE. 


1138 

0. . . 

.BB. 

.BB 

1140 

0. . . 

.BE. 

.BB 

1142 

0. . . 

.BB. 



1197 

1198 

1199 

1200 
1202 
1204 
1206 
1208 
1210 
1212 
1214 
1216 
1218 
1220 
1222 
1224 
1226 
1228 
1230 
1232 
1234 
1236 
1238 
1240 
1242 

1997 

1998 

1999 

2000 
2010 


REN 
REN 
REN 
DESIGN 

eBB... 
SBB... 
@BB... 
@BB.., 
SBB... 
@BB... 
SBB... 
@BB... 
@BB... 
8BB... 


* DRTRS EUER SPRITE 2 * 

0.15*64 

.BB 

.BB 

..BB 

.BB 

.BB 

.BB 

.BB 

.BB.BB 

_BBBB.BB 

. .. BBBBBB.BB 


SBBBBBBBBBB. 

0BB.... 

@BB.... 


.BBBBBBBBBB 
BB■■BB■■■■■■■BB 

.BBBB.BB 

SBB.BB.BB 

@BB.BB 

@BB.BB 

SBB.BB 

@BB.BB 

SBB.BB 

i3BB.BB 

0BB.BB 

REN ***************************************** 
REN * SPRITE 0 VORBESETZEN * 

REN ***************************************** 

NOB SET 0.. 13.7.0,. 1 
K0=38 


2020 V0=50 

2030 NNOB 0.X0.T0.K0. T0.E0.255 

2097 REN ***************************************** 

2098 REN * SPRITE 1 VORBESETZEN * 

2099 REN ***************************************** 

2100 MOE SET 1.14.5.0.1 
2110 NOB off 1 

2197 REM ***************.*********************.***** 

2198 REN * SPRITE 2 VOREESETZEH * 

2199 REN ***************************************** 

2200 NOB SET 2.15.1.0.0 
2210 K2=100 

2220 't'2~100 

2230 NNOE 2.H2.V2.K2.V2.E2.255 

2997 REN ***************************************** 

2998 REM * BEWEGUNGSRELflUF * 

2999 REN ***************************************** 
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PRINT".T' 

G0=2 

GETR$ 

IF R$<>"" THEH C$=B$ ^ B$=R$ 

IF HOT L THEH GOSUB6000 : GOSUB 7000 
DETECT 1 : DETECT 1 

IF L THEH IF CHECKcTj) =ü THEH GOTO 3540 
IF L RHD H0>238 RHD X0<;242 RHD V0>180 THEH 

GOSUB9030 

IF S THEH V1=V1-G0 : RLOCHÜB 1 1 XI /t'1 . El . 1 

: ifvi::;5Thehs=0:mgb off 1 

IF E$="S"THEH : RLOCnOB 0i X0/t'0.. E0. 255 : GOTO3002 

IF X0<1 THEH X0=1 

IF X0:>313 THEH X0=318 

IF V0<;i THEH V0=1 

IF V0>198 THEH 70=198 

IF B$="B" THEH : RLOCflOE 0. X0-HG0.70. E0. G : X0=X0-i-G0 

: GOTnr':002 

IFE^ =" E " THEH : RLOCHÜB 0. X0+G0.70-G0. E0. i3: X0=X0-f-G0 

:V0=70-G0:GÜTQ3002 

IFE$="H"THEH •• RLOCHOB 0. X0.. 70-G0. E0. G: 70=70-G0 
^ :nriTO3002 

IFB$= " Q" THEH : RLÜCMÜE 0. X0~G0V0~G0E0. G ^ X0=X0-r-i0 

: V0=70-fj0: GOTO3002 

IFBf="R"THEH:RLÜCMÜE 0.X0-G0.70.E0.G:X0=X0-G0 

: GriTÜ3002 

IFE$="Z"THEH:RLÜCMÜE 0.X0-G0.70+G0.E0.G:X0=X0-G0 

:70=70+G0:GOTO3002 

IFE$=" X" THEH : RLÜCMÜE 0. X0. 70-t-G0. E0. G : V0=70-l-G0 

':GOTÜ3002 

I FE$= " C " THEH : RLÜCMÜE 0. X0+G0. 70-HG0. E0. G : X0=X0+G0 

:V0=70+G0:GOTÜ3002 

IFSTHEH3135 

I F'E|:= " t" THEHX1 =X0 : 71 =70 : MMÜB 1. X1.71. X1.71 -1. E1. 1 

:S=1:B$=C$:GÜTO3002 

IFE$=" •t "THEHE$=C$: GOTO3002 
IFE$="G"THEHGÜSIJE3500: GOTO3002 
I FEf = " L " THEHGOSIJE8030 
I FE$= " V " THEHGÜSIJE9500 


GÜTO3002 

REM 

REM * GESCHWIHDIGKEIT REHDERH * 

REM 

GETG$:IFG$=""THEH3500 
G=VRLc. G$) 

IFG<1THEH3500 

G0=G*2 

E$=C$ 

RETURH 


REM 

REM * SPRITE 2 EEWEGEH # 

5999 REM 




100 


Kapitel 3 


6000 ZX= IHT < 10*RHri r: 6 >) -5 
6010 ZV= I HT < 10*RHri< 7 ;■ >-5 
6020 X2=X2+ZK 
6030 V2=V2+ZV 
6040 IF X2<10 THEH X2=10 
6050 IF X2I>300 THEH X2=300 
6060 IF V2<;i0 THEH V2=10 
5070 IF V2>195 THEH V2=195 
6080 RLOCMOE 2.X2 /t'2.E2. 1 
6090 RETIJRH 

6997 REM ***************************************** 

6998 REM * K0LLI3I0HSPRUEFUHG * 

6999 REM 

7000 DETECT 0 
7010 DETECT 0 

7020 IF CHECK a. 2 >=0 THEH GOTO 7200 
7030 IF CHECK<0.2;'=0 THEH GOTO 7100 
7040 RETIJRH 

7100 MOB SET 0. 15..6,.0.. 1 
7110 T0=1 

7197 REM ***************************************** 

7198 REM * SPRITE 2 GETRÜFFEH * 

7199 REM ***************************************** 

7200 MOE OFF 2 

7201 DESIGH 1.15*64 

7202 !]!..> DUEEE. . . . 

7204 e..DCEDCECE., 

7206 0...DCECEDB.. 

7208 e.DCEDCEEEBDC 
7210 eDCECDCEDCBCE 
7212 0DEECECECECDC 
7214 0DDBEBCDCDDCD 
7216 0DCBDCBDCBCBC 
7218 0BCDCBCEDCECE 
7220 0DBDEDEDCECEC 
7222 0D C E D E D ü B D C E C 
7224 0DCEEECECE... 

7226 0DEDECECE_ 

7228 0DEBEBCDCE... 

7230 0DECECDCEDE.. 

7232 0DCECEDCE_ 

7234 0_DCEEBECD 


7236 

0. ..DCECEDCE. 


^ •"« r, 
i irl'.'O 

0. .DEBEDCEED, 


7240 

0.DBEDEDEEDD, 


7242 

0.,.DCBDCE,.. 


7244 

MOE SET 2.. 15.. 7 

0,. 1 

7246 

MOE OFF 1 


7247 

IF T0=0 THEH M 

IDE OFF 

7248 

FuR 1=1 Tu 20 


7250 

CMOE 0..0 
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7251 PRUSE 0.9 

7252 MOB SET 2.. 15S,. 8.. 1 

7253 PRUSE 0,5 

7254 CMOE 7.. 3 

7255 PRUSE 0.1 

7256 MOE SET 2.. 15.7.0,. 1 

7257 PRUSE Ü.S 

7258 CMOE 8.1 

7259 PRUSE 9.7 

7260 MOE SET 2.15.0.0.1 

7261 PRUSE 0.5 

7262 UNLiB 7. 8 
726s PRUSE 8.2 

7264 MOE SET 2.15.1.0.1 

7265 PRUSE 0.4 

7266 UMuE 1.6 

7267 PRUSE 8,1 

7268 HEXT 

7269 UUSUE' 7S0I0 

7270 MOE OFF- 2 
7272 UFF 

7274 PRUSE 5 
7276 RUH 

7300 FOR 1=1 TO 20 

7301 RLOCMOE 2.X2.V2.3.1 
7802 MOE SET 2.15.8.8.1 

7303 PRUSE 0.5 

7304 CMOE 7.8 

7305 PRUSE 0.1 

7306 MOE SET 2.15.7.0.1 

7307 PRUSE 0.8 

7308 CMOE 0.1 

7309 PRUSE 0.7 

7310 MOB SET 2.15.0.0.1 

7311 PRUSE 0.5 

7312 CMOE 7.3 

7313 PRUSE 0.2 

7314 MOB SET 2.15.1.0.1 

7315 HEXT 

7316 RETURH 

8000 REM *##if..******'^*if**###****#*****'^#*****#.f***# 

3010 REM * LRHDUHG * 

3020 REM 

8030 PRIHT'':iMWI(!l«(!lPJBB^ STl SHS" 

8040 PRINT" 1 ä 

8050 PRIHT"a 1 a ■" 

3060 PRINT"a ■" 

3070 PRINT"’^a W" 

8080 PRIHT" ’^a W " 

3090 PRINT" “^a W " 

8100 MOB OFF 1 MOE OFF 2 
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8110 REM - RRKETE IN RUSGRNGSZUSTRNU BRINGEN - 

8120 K0=150 
8130 V0=70 

8135 RLOCMOB 0. H0.. V0.0.50 

8140 REM - BRSIS IN BILD SCHIEBEN - 

8150 F0RI=1T025 
8160 RIGHTW 0..0..39.24 

8220 REM - LRENGER WERDENDE NRRTESCHLEIFE - 

8230 FÜR J=1 TO 10*1 
8240 NEXT 
8250 NEXT 

8260 REM - RNFLUGVÜREEREITUNG - 

8270 B$=C$ 

8280 L=1 
8300 RETURN 

8500 REM ***************************************** 
8510 REM * EEHRNDLUNG MISSGLUECKTE LRNDUNG * 
8520 REM ***************************************** 

3540 REM - BLINKEN SPRITE / BRSIS - 

8550 FLRSH 8.10 

8560 RLOCMOB 2XO. V0.. 0.. 1 

8570 GOTO7200 

9000 REM ***************************************** 
9010 REM * BEHRNDLUNG ERFOLGREICHE LRNDUNG * 
9020 REM ***************************************** 

9030 L=0 

9050 PRINT''H!!M?Ii!!Mi!!l?M(!M ÜLRNDUNG ERFOLGREICH 
9060 F 0 RI = 1T02000 
9070 NENT 

9080 MOB SET 2.15.1.0,. 0 
9100 FRINT"^ 

9110 RETURN 

9497 REN ***************************************** 

9498 REM * MOB VERGRGESSERN ODER VERKLEINERN * 

9499 REM ***************************************** 

9500 B$=:C$ 

9510 UETRT 

9520 IFR$=^""THEN9510 
9530 fi=VHL(RT> 

9540 IFR93THEN9510 
9550 GETNR$ 

9560 IFNR$=""THEN9550 
9570 NR^^VRLaiRT;' 

9580 IFNR>2TH£N9550 

9590 ÜN NPH'l GnT'n 96R0.9610.962i-'i 

9600 E0=R •• RETURN 

9610 E1=R : RETURN 

9620 E2-R • RETURN 
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3.7 Variablen-Überslcht 


RAKETE 


100 - 9620 

Variablen: 

Name 

! Typ 

! Bereich ! 

Bedeutung 

A$ 

! G 

! 1 Zeichen ! 

Einlesen von Tastatur 

A 

! H 

! 0...7 ! 

Wert von A 

B$ 

! G 

! 1 Zeichen ! 

■ Bewegungszeichen' 

c$ 

! G 

! 1 Zeichen ! 

Zwischenspeichern des 



! j 

Bewegungszeichens 

EO 

! G 

! 0...3 ! 

Vergrößerung des 



! ! 

Abfangj ägers 

El 

! G 

! 0...3 1 

Vergrößerung des 



! 1 

Schusses 

E2 

! G 

! 0...3 ! 

Vergrößerung des 



! ! 

Raumgleiters 

G 

! H 

! 1... 9 ! 

Geschwindigkeitsangabe 

G$ 

! H 

! ■1‘...’9' ! 

Geschwindigkeitsangabe 

GO 

! G 

CO 

Geschwindigkeit des 


! 

! ! 

Abfa ngj ägers 

Gl 

! G 

! 2... 18 ! 

Geschwindigkeit des 



! ! 

Schusses 

G2 

! G 

! 2...18 ! 

Geschwindigkeit des 



! ! 

Raumgleiters 

1,0 

! H 

! 1. . .25 / 1...2000! 

Laufvariable 

L 

! H 

10,1 1 

Merker für Landevorg. 

NR 

! H 

! 0...2 ! 

Spritenummer für Ver- 


! 

1 ! 

größerung 

NR$ 

! H 

! ■0"..."2' 1 

Spritenummer für Ver- 


! 

! 1 

größerung 

S 

! H 

10,1 1 

Merker für Schuss 

TO 

! H 

10,1 1 

Merker für Kollision 

XO 

1 G 

1 0...319 1 

X-Koordinate Sprite 0 

XI 

! G 

! 0...319 1 

X-Koordinate Sprite 1 

X2 

! G 

1 0...319 1 

X-Koordinate Sprite 2 

YO 

! G 

1 0. ..199 I 

Y-Koordinate Sprite 0 

Y1 

! G 

1 0...199 ! 

Y-Koordinate Sprite 1 

Y2 

1 G 

1 0...199 I 

Y-Koordinate Sprite 2 
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Felder (Arrays): 


Name ! Dirnen. ! Typ ! Bereich 

! Bedeutung 

-! ! ! 

! 

Unterprograamaufrufe ; 


in ! nach ! Zweck 



3006 ! 

6000 

! 

Sprite 2 bewegen 

3006 ! 

7000 

! 

Kollision prüfen 

3012 ! 

9030 

! 

geglückte Landung 

3135 ! 

3500 


Geschwindigkeit ändern 

3136 ! 

8030 

! 

Landung vorbereiten 

3138 ! 

9500 

! 

Sprites vergrößern / verkleinern 


Verzweigungen 

nach außen : 


in Ze ! 

nach 

! Bedingung 

! Bemerkung 

7276 ! 

! RUN 

! Kollision 

! Neustart bei Koll. 


















4 

F ehlenneldimgen 
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4. Fehlermeldungen 


Da das - uns vorliegende - Handbuch überhaupt nichts über 
Fehlermeldungen aussagt, wollen wir Ihnen - falls es Ihnen 
genauso geht - im folgenden die zwölf Simon's-spezifischen 
Fehlermeldungen näher erläutern. Wichtig: Die Fehlermel¬ 
dungen von Simon's Basic werden nicht durch ON ERROR abge¬ 
fangen. Die nachfolgende Aufstellung benutzt die interne 
Fehlernummer als Sortierkriterium. Die interne Fehlernum¬ 
mer kann normalerweise nicht abgefragt werden. 


(1) PROC NOT FOUND 


(Prozedur nicht gefunden) 


Bei Aufruf der Befehle CALL und EXEC wird im Programm nach 
dem Namen des hinter dem Befehl angegebenen Unterprogramms 
gesucht. Wird dieser im Programm nicht gefunden, so wird 
die Fehlermeldung 'PROC NOT FOUND' ausgegeben. 


(2) INSERT TOO LARGE 


(Eingefügter Text zu lang) 


Dieser Fehler tritt bei der Zeichenreihenoperation INSERT 
auf. Logischerweise darf beim Einfügen die Position, ab 
der eingefügt werden soll, nicht größer sein als die 
zweite Zeichenreihe lang ist. 


(3) STRING TO LARGE 


(Zeichenreihe zu lang) 


Irgend etwas scheint hier schief gegangen zu sein; sicher¬ 
lich sollte die Fehlermeldung 'STRING TOO LARGE' heißen. 
Er ist das Gegenstück in Simon's Basic für 'STRING TOO 
LONG'. Dieser Fehler kann bei den Befehlen INST, INSERT, 
DUP auftreten, wenn die sich ergebende Zeichenreihe mehr 
als 255 Zeichen enthält. 


(4) NOT BINARY CHAR 


(Kein binäres Zeichen) 


Bei den Zahlbefehlen müssen nach dem '%'-Zeichen genau 
acht Zeichen, die aus '0' oder '!' bestehen, auftreten. 
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ansonsten wird Fehler (4) produziert. 


(5) NOT HEX CHAR 


(Kein hexadezimales Zeichen) 


Ähnlich Fehler (4) müssen hier dem '^‘-Zeichen genau vier 
hexadezimale Zeichen ( ‘0123456789ABCDEF‘) folgen. 


(6) END PROC «ITHOUT EXEC 

(Prozedurende ohne Prozeduraufruf) 


Diese Fehlermeldung entspricht dem RETURN WITHOUT GOSUB im 
normalen Basic, wo das Programm auf das Ende eines Unter¬ 
programmes gelaufen ist ohne daß vorher eins aufgerufen 
wurde. Der Rechner erkennt diesen Fehler, weil er fest¬ 
stellt, daß der Stack leer ist. 


(7) END LOOP WITHOUT LOOP 

(Schleifenende ohne Schleifenbeginn) 

Ähnlich wie (6) ist die Fehlermeldung 'END LOOP WITHOUT 
LOOP' die andere Version für das Ende einer Schleife ohne 
das Anfangskommando (NEXT WITHOUT FOR). 


(8) UNTIL WITHOUT REPEAT 

(Schleifenende ohne Schleifenbeginn) 


Analog (7) für den Schleifenbeginn 'REPEAT UNTIL'. 


(9) STACK TOD LARGE 


(Überlauf im Kellerspeicher) 


In Kapitel 1 haben wir bereits erwähnt, daß Simon's Basic 
für die Befehle EXEC, REPEAT und LOOP jeweils einen eige¬ 
nen Stack besitzt, der bis zu fünf Elemente enthalten 
kann. Wenn einer dieser drei Stacks überläuft, so er¬ 
scheint Fehler (9). 


(10) TOD FEW LINES 

(zu wenig Zeilen - bei DESIGN) 

Der Fehler (10) tritt nach dem DESIGN-Befeh 1 auf, wenn 
entsprechend dem Parameter zu wenig Zeilen folgen. Bei 
DESIGNO bzw. DESIGNl müssen genau 21 beschreibende Zeilen 
folgen, bei DESIGN2 und DESIGNS genau acht Zeilen. 
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(11) BAD CHAR FOR A MOB 

(falsches Zeichen bei MOB-Definition) 


Als beschreibende Zeichen nach dem DESIGN-Befeh 1 sind 
ausschließlich zugelassen: 


' Klammeraffe' 

A • • 


B 

C, D 


zur Zeilenanfangsmarkierung (und nur dort) 

Zeichen, die später keinen Punkt am 

Bildschirm erzeugen 

Punkt in der ersten Farbe 

Punkt in der 2. und 3. Farbe (jedoch nur 

nach DESIGN 1 oder DESIGN 3) 


Alle anderen Zeichen führen zu dieser Fehlermeldung. 


(12) BAD MODE 

(Falscher Modus / allgemeiner Fehler) 

Den Fehler ’BAD MODE’ kann man als 'SYNTAX ERROR’ von 
Simon’s Basic bezeichnen. Er wird immer dann angesprochen, 
wenn Unstimmigkeiten vorliegen und keiner der Fehler (1) 
bis (11) vorliegt. Manchmal wird anstatt 'BAD MODE’ auch 
’DS-CBM’ ausgegeben. Die Bedeutung ist ähnlich. 


N.B.: Das Statusbyte ST wird auf acht gesetzt, wenn bei 
einem Grafikbefehl unzulässige Punkt-Koordinaten angegeben 
werden. D.h. Sie brauchen die umständliche Abfrage in 
Basic bezüglich Korrektheit der Koordinaten zunächst nur 
auf das Statusbyte zu beschränken, und wenn dieses acht 
ist eine genaue Untersuchung der Koordinaten vornehmen. 




5 

Musik an Beispielen 
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5. Musik am Beispiel 


Im Handbuch von Simon's Basic ist zwar ein Musikbeispiel 
abgebildet, aber anhand dieser Vorgabe könnte man nur ein¬ 
stimmig spielen. In dem nachfolgenden Programm wollen wir 
Ihnen zeigen, wie mit Simon's Basic auch alle drei Stimmen 
genutzt werden können. Um die Eingabe zu vereinfachen, 
kann jede Stimme - wie bei dem Beispiel im Handbuch auch - 
getrennt eingegeben werden. Diese werden anschließend mit 
einer eigenen Prozedur gemischt. Eine weitere Prozedur 
beschäftigt sich mit der Klangformung und eine dritte mit 
dem tatsächlichen Spiel, da der eigentliche Musikbefehl 
nur eine Zeichenreihe von maximal 255 Zeichen zuläßt. 

Im weiteren wurden in diesem Kapitel für die Unterpro¬ 
gramme die Simon■s-Befehle EXEC, PROC, REPEAT...UNTIL und 
CALL verwendet. 

Da die NotendauerumschaItung jeweils für alle drei Stimmen 
gilt und das dauernde Umschalten der Noten einerseits 
Speicherplatz (in den Zeichenreihen) und mühsame Tippar¬ 
beit kostet, andererseits zwei aufeinanderfolgende gleiche 
Noten akustisch nicht zu unterscheiden sind, geben wir für 
das gesamte Stück eine einzige Notendauer vor. In unserem 
Beispiel sind es Viertel, d.h. halbe Noten erfordern die 
doppelte und ganze Noten die vierfache Eingabe der Ton¬ 
höhe. Sie werden sehr schnell feststellen, daß dies die 
Eingabe wesentlich erleichtert. 

Zunächst also wird in Zeile 100 die Notendauer auf eine 
Viertelnote festgelegt. Die Zeile 110 bis 130 beinhalten 
den ersten Teil der drei Stimmen, da in den Zeilen nicht 
mehr Noten erfaßt werden können. Diese drei Stimmen werden 
durch den Prozeduraufruf in Zeile 140 zunächst ineinander¬ 
gemischt und anschließend erfolgt die Eingabe des zweiten 
Teils für alle drei Stimmen, die in Zeile 240 wieder zu¬ 
sammengemischt werden. Die beiden letzten Prozeduraufrufe 
sind dann für den Klang und das eigentliche Spiel zu¬ 
ständig. 


Mischen 

Die Prozedur Mischen besteht selbst wieder aus zwei Pro¬ 
zeduren: MISCH und Ml. In MISCH wird je eine Note für die 
einzelnen Stimmen abgetrennt und in dem Musikstring MU$(M) 



114 


Kapitel 5 


100 rii$="ir' 


110 R1 " B4E5-"5E5~5G5-5G5R5B5E5B5E5E:5E5Ii6ri6E5E5B5E5E5E6E6 

ri6E5B5B5B5E5" 


120 fl2^="PE4G4E4G4E4G4E4G4G3G4G3G4G3G4G3G4G3G4G3G4G3G4G3 Ij4 


G3G4G3G4G3G4G3G4E4G4" 
130 R3|:="PPE4PB4PB4PE4PE4PE4PB4PE4PE4PB4PE4PE4PB4PB4PB4PB4 

PB4PB4PB4PB4P" 


140 EKEC MISCH 

210 R1 $=R 1 ■$■+ " fi5G5E5E5E5E5E5E5R5R5G5E5E5E5E5E5E5:i3" 

220 R2$=R2$+"E4G4E4G4E4G4E4G4E4G4E4G4E4.")3" 

230 R3$=R3$+"E4PB4PB4PE4P:X " 

240 EXEC MISCH 
400 EXEC KLRHG 
410 EXEC SPIEL 
399 EHE 

1000 PROC MISCH 
1010 REPERT 

1020 IFR 1 $> " " THENMU$-< M > ( M) +" üll" h-D 1 $ : R0$=R 1 $ ^ GOSUB1500 

1030 IFR2f>" "THEHMU$(M)=MlJf ■:;M) + "EE" : R0$=R2f : GOSIJB1500 

:R2t=R0f 

1040 I Fh3$> "" THEHMLM: CM=MIJ$ (M> +" 213" : R0$=R3# ■ GOSUB 1500 

:R3$-R0^ 

1050 I FLEH <; MIJ$ (M > ) >240THEHM=M+1 

1060 LINTIL ... fi2$="" OR R3$="" 

1070 END PROC 

1500 PROC Ml 

1510 RR$=^LEFTil?<R0$.. 1) 

1520 R0$=MID:f'::R0$..2) 

1530 I FFLfiCE ( RR$.. " limHBaiin" > THEHD0$=RR$ : CRLL M1 
1540 IFPLFICE (RR#" CIiEFGRE~-“-~.l ♦ " irJ-i I rV" ) THEHMU# (M > =: 

■■1U#(M)+RFl$- CRLL Ml 

1550 IFPLRCECRR#.. "01234567 PZ" )THEHMU$<M::'=MU#(M;:'+RR# 

1560 RETURN 
2000 PROC SPIEL 
2010 FORI=0TOM 
2020 MUSIC5..MU$';;i> 

20S0 PLRV 1 
2040 HEXT 
2050 VOL0 
2060 EHE PROC 
3000 PROC KLRHG 
3010 EHVELOPE 13.. 3,. 10.. 5 
3020 EHVELOPE 2.4,. 4 ,. 10; 5 
3030 EHVELOPE 3; 4,. 4.. 10,. 5 
3040 HFlVEl.. 01000000 
3050 NRVE2,. 00010000 
3060 WRVE3.. 09010000 
3070 POKE SOUHE+3.. 15 
3100 V0L15 





Musik 


115 


abgelegt. Dazu wird das Unterprogramm ab Zeile 1500 für 
das eigentliche Abtrennen aufgerufen. Hier wird deutlich, 
daß auch bei Verwendung von Simon's-Prozeduren weiterhin 
Unterprogramme mit GOSUB aufgerufen werden können. Da bei 
dreistimmigem Spiel sicherlich mehr als 255 Zeichen benö¬ 
tigt werden, um ein annehmbares Musikstück zu spielen, 
wurde die Zeichenreihe für das eigentliche Spiel als Feld 
(Array) ausgelegt. Durch das Abtrennen ab Zeile 1500 kön¬ 
nen pro Stimme nie mehr als fünf Zeichen an die aktuelle 
Zeichenreihe zum Spielen angehängt werden. Deshalb befin¬ 
det sich in Zeile 1050 die Abfrage, ob die Zeichenreihe 
bereits die Länge 240 hat. In diesem Falle wird aus dem 
Array das nächste Element zur weiteren Verarbeitung her¬ 
angezogen. Das Endekriterium für das Mischen ist erfüllt, 
wenn eine der drei Einzelstimmen (bzw. ihre Zeichenreihe) 
leer ist. 

In der Prozedur ab Zeile 1500 geschieht das eigentliche 
abtrennen. Dabei wird zunächst das erste Zeichen an AA$ 
übergeben und der Rest in A0$ gespeichert. Wer seine 
Notendauer während des Stückes doch ändern will kann in 
Zeile 1530 die aktuelle Notendauer erfragen, die dann an 
die Variable D0$ übergeben wird. Ist das erste Zeichen ein 
Buchstabe oder ein anderes zulässiges Notenzeichen, so 
wird dieses Zeichen an den aktuellen Musikstring angehan¬ 
gen und das Unterprogramm erneut aufqerufen. Liegt eine 
Zahl oder ein Pausenzeichen (P oder Z) vor, so wird nur 
noch dies an den aktuellen Musikstring angehangen und das 
Unterprogramm verlassen. 


Spielen 

Da der Musikbefehl immer nur eine Zeichenreihe spielen 
kann, beinhaltet diese Prozedur lediglich eine Schleife, 
in der alle zusammengesetzten Musikstrings nacheinander 
gespielt werden. Dazu ist der Befehl PLAYl unbedingt er¬ 
forderlich. Zum Abschluß wird noch die Lautstärke ausge¬ 
schaltet. 


Klang 

In dem Unterprogramm zur Bestimmung des Klanges werden zu¬ 
nächst die drei Hüllkurven entsprechend mit den Werten für 
Attack, Decay, Sustain und Release besetzt (der erste Pa¬ 
rameter ist die Stimme). Dann werden noch die einzelnen 
Wellenformen eingeschaltet, wobei wir für die erste Stimme 
die Rechteckform gewählt haben und für die Begleitstimmen 
die Dreieckschwingung. Da bei einer Rechteckschwingung un- 
ß-dingt das Pulsverhältnis angegeben werden muß, ist der 
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Befehl in Zeile 3070 noch erforderlich, um die erste Stim¬ 
me hörbar zu machen. Weil das Pulsverhältnis in zwei Byte 
abgespeichert wird, werden mit Zeile 3070 nur die letzten 
vier Bit des Higher Byte gesetzt. Das Pulsverhältnis be¬ 
trägt also 15*256, fast die gesamte Pulsbreite. Wir er¬ 
innern hier nochmal an Band 3, wo wir festgestellt haben, 
daß die Pulsbreite sich in ein Lower Byte und Higher Byte 
gliedert, wobei im Higher Byte jedoch nur die letzten vier 
Bit signifikant sind (das Pulsverhältnis ist eine 12-Bit 
Zahl). 

Als letztes wird noch die Lautstärke auf maximale Höhe ge¬ 
setzt. Beachten Sie, daß die Prozedur Klang immer vor der 
Prozedur Spiel aufgerufen werden muß, da Sie sonst um Ihr 
akustisches Vergnügen gebracht werden. Ach ja, haben Sie 
das Lied erkannt? El Condor Pasa! 




Kommentiertes 

Assembler-listing 
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6. Kommentiertes Assembler-Listing 

Um denjenigen, die Simon's Basic noch verbessern wollen 
oder auch nur einige Tips für die eigene Programmierung 
ableiten wollen ein geeignetes Hilfsmittel zu geben stel¬ 
len wir in diesem Kapitel das kommentierte Assembler- 
Listing vor. 

Auch Simon's Basic ist Software, Software ist Handarbeit 
und Handarbeit ist nie fehlerfrei. Der Programmierer oder 
das Team, das Software solchen Umfanges fehlerfrei 
schreibt muß wohl erst noch geboren werden, oder selbst 
ein Computer sein. Wer Fehler beseitigen, weitere Befehle 
einbauen oder einige Befehle austauschen oder löschen will 
(um Speicherplatz frei zu bekommen) dem dürfte besonders 
Kapitel 6.2 willkommen sein. 

Zunächst soll jedoch noch einiges zum Kommentar selbst ge¬ 
sagt werden, und anschließend bringen wir noch eine Über¬ 
sicht der verwendeten Symbole (nach Namen und Adressen ge¬ 
ordnet. Den Abschluß von Kapitel 6 bildet eine Übersicht 
der von Simon's Basic verwendeten Adressen der Zero-Page. 

übrigens: Grundlage für diese Arbeit war der Dissassembler 
aus Band 4, der noch leicht modifiziert wurde. 


6.1 Allgemeines / Bemerkungen zum Kommentar 


'Bemerkungen zum Kommentar' hört sich fast an, als hätte 
man es mit Gesetzen zu tun. Dies ist zwar nicht der Fall, 
jedoch scheint es aufgrund des langen Listing, geraten, 
etwas zur prinzipiellen Vorgehensweise zu sagen. 


6.1.1 Symbolbenennung 


Zur Darstellung von Unterprogramm-Labels und Hilfszellen 
wurden statt der üblichen hexadezimalen Adressen Symbole 
verwendet, dadurch wird die Lesbarkeit des Listings we¬ 
sentlich erhöht. Manchmal interessieren aber auch die tat¬ 
sächlichen Werte der Labels (Marken). Diese kann man in 
der Tabelle in Kapitel 6.3 nachschlagen. Schneller geht es 
natürlich, wenn man sich die Code-Spalten (die Spalten 
hinter der Adresse) genauer ansieht. Den Wert des Symbols 
erhält man einfach durch Vertauschen der zweiten und der 
dritten Spalte. Ein Beispiel: 
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800D 20 20 81 OSR PSPEIBE ;Basic-Rom ein 
Die Adresse von PSPEIBE ist also $8120. 

Symbole, die Namen der Art 'SYMBOLSYMBOL+1' tragen, be¬ 
zeichnen Lower- und Higher-Byte eines 16-Bit-lVertes. Bei 
den Bemerkungen ist dann oft nur der Name ohne '+1' er¬ 
klärt. 

Symbolnamen, die ’TAB’ enthalten, bezeichnen eine Tabelle 
(d.h. wenigstens 3 gleichartige Werte). 

Symbolnamen, die mit 'S' anfangen, aber auch ohne das 'S' 
Sinn geben (z.B. SOHKOOM), bezeichnen einen für Simon's 
Basic veränderten Aufruf der Routine ohne das 'S' (hier 
also OHKOOM) oder die Simon's Version einer auch im nor¬ 
malen Basic vorhandenen ähnlichen Routine oder einer Vor¬ 
gänger-Routine davon (z.B. SNMI; SIRQ). 

Symbolnamen, die mit '1' oder '2' aufhören, sind Fortset¬ 
zungen oder Abwandlungen. 

Den Zero-Page-Adressen wurden keine Symbole zugeordnet, da 
deren Bedeutung meist nicht allgemein festgelegt werden 
kann. Eine Tabelle der wichtigsten Bedeutungen für Simon's 
Basic von Zellen in der Zero-Page ist in Kapitel 6.4 
wiedergegeben. 

Symbole, die mit 'BEF' beginnen, bezeichnen die Start¬ 
adresse der Befehlssequenz des entsprechenden Simon's- 
Basic-Befehls. Die Befehle INV, MOVE, UPW, DOWNW, LEFTW, 
RIGHTW, UPB, DOWNB, LEFTB, RIGHTB haben eine gemeinsame 
Adresse 'MOVEBEF'; erst später wird zu den einzelnen Rou¬ 
tinen verzweigt. Deshalb fehlen in der Symboltabelle Be¬ 
zeichnungen wie 'BEFINV. 

Symbole, die mit 'FN' beginnen bezeichnen eine Simon's- 
Funktion. 


6.1.2 Zur Kommentierung 


Meistens ist der Kommentar weggelassen worden, wenn die 
Bedeutung der Befehle sofort einsichtig ist oder sich aus 
den Bemerkungen in den darüber liegenden Zeilen leicht er¬ 
gibt. Insbesondere wird eine analoge Bedeutung von Lower¬ 
und Higher-Byte eines Ausdrucks nur einmal erklärt. Oft 
erscheinen im Kommentar auch die Befehlsfolgen für Lower¬ 
und Higher-Byte zusammengefasst. 
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Nach JMP-Befeh len, nach RTS und nach einem logischen Ab¬ 
satz sowie vor wichtigen Sprungzielen ist eine Leerzeile 
eingefügt. 

Bei relativen Sprüngen ist als Kommentar oft nur die Be¬ 
dingung angegeben, unter der verzweigt wird. Zum Beispiel: 

BEQ $AAAA ;Zeilenende ? 

Es wird nach $AAAA verzweigt, wenn ein Zeilenende erreicht 
wurde. 

Sprünge, die wiederholt ausgeführt werden, etwa bis ein 
Zähler abgelaufen ist, sind oft mit 'Schleife' kommen¬ 
tiert. Steht dieser Kommentar hinter einem OMP-Befehl, so 
wird die Schleife an einer anderen Stelle, die weiter oben 
angegeben ist, verlassen. 

Die Wörter 'MOB' und 'Sprite' sind Synonyme. 

'akt. ' ist die Abkürzung für 'aktuell' und wird meist 
verwendet, wenn ein veränderlicher Zeiger (z.B. der Basic- 
Programmzeiger) auf ein Byte zeigt. Dieses Byte wird dann 
mit 'akt. Byte' bezeichnet. 

Die Dereferenzierungen wurden relativ leger gehandhabt. 
Z.B. bedeutet der Kommentar '$A4 = $61 + COPZAEY', daß 
sich die Speicherzelle $A4 mit der Summe aus dem Inhalt 
der Speicherzelle $61 und der Zelle COPZAEY ergibt. Analog 
wurde kommentiert, wenn ein Zellenpaar angesprochen wird: 
der Kommentar '$09,$0A = $5F,$60 + PZEIG' weist auf eine 
16-Bit-Addition hin, deren erster Summand aus den Zellen 
$5F und $60 geholt wird. Das Lower-Byte des zweiten Sum¬ 
manden wird aus PZEIG geholt, das Higher-Byte davon ist 0. 


6.1.3 Speicherverteilung (RAM-Belegung) 


$0000-$3FFF 

$0400-$7FFF 

$0800-$7999 

$8000-$BFFF 

$C000-$C3FF 

$C400-$C4FF 

$C500-$CBFF 

$CC00-$CFFF 

$D000-$DFFF 

$E000-$FF3F 

$FF40-$FFF9 


Belegung wie bei normalem Basic 
Video-RAM bei normalem Betrieb 
Speicher für Anwenderprogramm und 
Variablen 
Simon's Basic 

Video-RAM bei Hires (1. und 2. Farbe) 
f re i 

Hilfszellen für Simon's Basic 
Video-RAM nach MEM 
I/O und Farb-RAM 

Grafik-Speicher bzw. Zeichengen. nach MEM 
(freies RAM) 
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FFFA,$FFFB NMI-Vektor (im RAM auf $8118 gerichtet) 
fFFFC-lFFFF im RAM nicht belegt 

Da im Bereich von $A000 bis $BFFF das Basic-ROM liegt, muß 
dies ausgeschaltet werden, wenn ein Simon's-Basic-Befeh 1 
ausgeführt wird. Die Simon's Funktionen liegen allesamt im 
Bereich bis $9FFF, sodaß hier nicht umgeschaltet werden 
braucht. 

Der Grafik-Speicher liegt unter dem Betriebssystem-ROM, so 
daß dieses ausgeschaltet werden muß, wenn das Grafik-RAM 
bearbeitet wird, z.B. bei der TEST-Funktion. 


6.1.4 Aufbau der Siaon’s- Befehle und Funktionen 


Alle Simon's Befehle und Funktionen sind im Programmspei¬ 
cher durch das Byte $64 gekennzeichnet, dem die Nummer des 
Befehls (1 Byte) folgt. 

Für die Simon's-Befehle existiert eine Sprungtabelle, für 
die Funktionen nicht. In der Sprungtabelle für die Befehle 
steht an den Stellen, die den Funktionen entsprechen, die 
Adresse von 'BADMODE', wodurch eine Fehlermeldung aus¬ 
gegeben wird, wenn versucht wird, eine Funktion als Befehl 
aufzurufen. 

Typischer Aufbau eines Befehls von Simon's Basic: 

i) Code überlesen (Codenr. des Befehls); dies 
geschieht z.B. mit OSR INCBASBZ 

ii) Parameter holen; z.B. mit OSR SGETADR (holt 
16-bit-lVert) 

iii) eigentliche Befehlsbearbeitung 

iv) Befehl beenden; z.B. mit OMP ENDSMB 

Werden keine Parameter gebraucht, so können i) und 
iv) zusammengefasst werden. Punkt i) entfällt, und 
an Stelle von 'OMP ENDSMB' tritt 'OMP BEFO'. 

Ist der erste Parameter ein Byte-Wert, können i) und ii) 
zusammengefasst werden zu 'OMP SGETBYTN'. SGETBYTN über¬ 
liest ein Zeichen, bevor es den Byte-Parameter auswertet. 


Typischer Aufbau einer Funktion von Simon's Basic: 
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Da keine Sprungtabelle existiert, steht zu Beginn die Ab¬ 
frage, ob diese Funktion auch wirklich aufgerufen werden 
soll, d.h. es werden alle Funktionen nacheinander bis zur 
gefundenen durchsucht. Dann muß - wie bei den Befehlen - 
der Befehlscode überlesen werden. 

Die Parameter stehen bei Funktionen in Klammern. Deshalb 
steht vor dem Parameterholen ein Aufruf von CHKKLA (folgt 
Klammer auf ?) und danach ein Aufruf von CHKKLZ (folgt 
Klammer zu ?). 

Es gibt String-Funktionen und numerische Funktionen. Der 
Typ der Funktion wird dem normalen Basic durch das Flag in 
Zelle $0D mitgeteilt. ($00 = numerisch, $FF = String). Am 
Ende der Funktions-Routine wird dieses Flag gesetzt. 

Das Ergebnis der Funktion muß bei numerischen Funktionen 
im Fließkomma-Akkumulator (kurz: FAC) übergeben werden; 
bei String-Funktionen muß der Deskriptor (Länge und 
Adresse) des Strings auf den Stringstapel gelegt werden. 
Dies wird durch die Basic-Routine PUSHSTR erledigt. 


6.1.5 Interrupt-Steuerungen 

Per Interrupt werden diverse Funktionen gesteuert: 

- PAUSE 

Der Sekundenzähler für den Pause-Befehl wird durch 
Interrupt hochgezählt. 

- BFLASH 

- FLASH 

- KEY 

- PLAY 

Der MUSIC-String wird durch eine Interrupt-Routine 
abgearbeitet. 

Der Interrupt-Vektor wird dazu auf $9694 gestellt. Die je¬ 
weiligen Funktionen werden ausgeführt, wenn die entspre¬ 
chenden Flags gesetzt sind. 

Für den NMI steht eine besondere Adresse im RAM zur Vefü- 
gung, wenn gerade das KERNAL ausgeschaltet ist. Bei dieser 
Adresse wird das KERNAL wieder eingeschaltet und zur nor¬ 
malen NMI-Routine verzweigt. 
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6.2 Listing 


STARTVEC: 

8000 OA 
SNMIVEC; 
8002 FF 

80 

82 



$800A 

$82FF 

Startvektor für Reset 

Vektor für NMI 

MODULTEXT; 
8004 03 

02 

OD 

38 30 

■0BM80‘ 

;für Modulerkennung 

8009 FF 



BYT 

$FF 

;(unsinnig) 

SSTART; 
800A 40 

47 

81 

OMP 

BEFOOLD 

;zum OOLD-Befehl 


*** Es folgen einige Aufrufe von Basic-Routinen, wobei 
*** zunächst mit PSPEIBE der momentane Wert des Prozes- 
*** sorports gespeichert und das Basic-ROM eingeschaltet 
*** wird. Dann wird die entsprechende Routine aufgerufen 
*** und anschließend der alte Wert im Prozessorport 
*** wieder hergestellt (mittels PRESTOR). 

SFRMNUM: 


800D 

20 

20 

81 

asR 

PSPEIBE 

;Basic-Rom ein 

8010 

20 

8A 

AD 

asR 

$AD8A 

;holt numerischen Ausdruck 

8013 

40 

3B 

81 

OMP 

PRESTOR 

(Stellt ROM-Schalter zur. 

SFAOADR 

8016 

20 

20 

81 

asR 

PSPEIBE 


8019 

20 

F7 

B7 

OSR 

$B7F7 

(■wandelt FAO in Adreßform. 

8010 

40 

3B 

81 

OMP 

PRESTOR 


SSIN: 

801F 

20 

20 

81 

OSR 

PSPEIBE 


8022 

20 

6B 

E2 

OSR 

$E26B 

(•Basic-Funktion SIN 

8025 

40 

3B 

81 

OMP 

PRESTOR 


SOOS: 

8028 

20 

20 

81 

OSR 

PSPEIBE 


802B 

20 

64 

E2 

3SR 

$E264 

(•Basic-Funktion OOS 

802E 

40 

3B 

81 

OMP 

PRESTOR 


SOHKOOM: 
8031 20 

20 

81 

asR 

PSPEIBE 


8034 

20 

FD 

AE 

JSR 

OHKOOM 

(•prüft auf Komma 

8037 

40 

3B 

81 

OMP 

PRESTOR 


SFRMEVL 

803A 

20 

20 

81 

asR 

PSPEIBE 


803D 

20 

9E 

AD 

OSR 

$AD9E 

(•holt beliebigen Ausdruck 

8040 

40 

3B 

81 

OMP 

PRESTOR 
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SFRESTR: 


8043 

20 

20 

81 

3SR 

PSPEIBE 


8046 

20 

A3 

B6 

3SR 

$B6A3 

;holt Stringparameter 

8049 

40 

3B 

81 

OMP 

PRESTOR 

SINTOUT: 






804C 

20 

20 

81 

3SR 

PSPEIBE 


804F 

20 

Dl 

BD 

3SR 

$BDD1 

;gibt Ganzzahl aus 

8052 

40 

3B 

81 

OMP 

PRESTOR 

SGOTOl: 







8055 

20 

20 

81 

OSR 

PSPEIBE 


8058 

20 

A3 

A8 

3SR 

$A8A3 

/springt zu Zeile($14,$15) 

805B 

4C 

3B 

81 

OMP 

PRESTOR 

SCHKZEI; 






805E 

20 

20 

81 

3SR 

PSPEIBE 


8061 

20 

FF 

AE 

3SR 

$AEFF 

/prüft auf Zeichen im Akku 

8064 

40 

3B 

81 

OMP 

PRESTOR 

SCHKCOMl; 






8067 

20 

20 

81 

3SR 

PSPEIBE 


806A 

20 

FD 

AE 

asR 

OHKOOM 

/prüft auf Komma 

8060 

40 

3B 

81 

3MP 

PRESTOR 

SSTRPZ: 







8070 

20 

20 

81 

3SR 

PSPEIBE 


8073 

20 

13 

A6 

asR 

$A613 

/berechnet Zeilenstartadr• 

8076 

40 

3B 

81 

OMP 

PRESTOR 


SASCFLP: 






8079 

40 

F3 

BO 

OMP 

$B0F3 

/wandelt Text nach Fließk. 

SGETARIl: 






807C 

40 

92 

AE 

OMP 

$AE92 

/holt arithmet. Element 

SCHKKLZ: 






807F 

20 

20 

81 

3SR 

PSPEIBE 


8082 

20 

F7 

AE 

asR 

OHKKLZ 

/prüft auf 'Klammer zu' 

8085 

40 

3B 

81 

3MP 

PRESTOR 

SXFLP: 







8088 

20 

20 

81 

JSR 

PSPEIBE 


808B 

20 

49 

BO 

3SR 

XFLP 

/wand, nach FAG (Exp in X) 

808 E 

40 

3B 

81 

OMP 

PRESTOR 

SFACARG: 






8091 

20 

20 

81 

OSR 

PSPEIBE 


8094 

20 

00 

BO 

asR 

FAOARG 

/FAO nach ARG übertr. 

8097 

40 

3B 

81 

3MP 

PRESTOR 
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SFMULT: 


809A 

20 

20 

81 

3SR 

PSPEIBE 


809D 

20 

30 

BA 

DSR 

$BA30 

;Fließk.-Multiplikation 

80A0 

4C 

3B 

81 

OMP 

PRESTOR 

SFLDFACK; 






80A3 

20 

20 

81 

OSR 

PSPEIBE 


80A6 

20 

A2 

BB 

3SR 

$BBA2 

;lädt FAC mit Konstante 

80A9 

4C 

3B 

81 

3MP 

PRESTOR 


SFDIV: 







80AC 

20 

20 

81 

3SR 

PSPEIBE 


80AF 

20 

14 

BB 

3SR 

$BB14 

;Fließk.-Division 

80B2 

4C 

3B 

81 

DMP 

PRESTOR 


SFACASC: 






80B5 

20 

20 

81 

3SR 

PSPEIBE 


80B8 

20 

DF 

BD 

OSR 

$BDDF 

(•wandelt FAC in Text um 

80BB 

4C 

3B 

81 

JMP 

PRESTOR 


SGETVAR; 






80BE 

20 

20 

81 

DSR 

PSPEIBE 


80C1 

20 

28 

AF 

3SR 

$AF28 

;holt Wert von Variable 

80 C4 

40 

3B 

81 

JMP 

PRESTOR 


STESFDIRM; 






80 C7 

20 

2C 

81 

3SR 

PSPEIBE 


80 CA 

20 

A6 

B3 

3SR 

$B3A6 

(•prüft auf Direktmodus 

80CD 

40 

3B 

81 

3MP 

PRESTOR 

SCLRCH: 







80 DO 

20 

20 

81 

3SR 

PSPEIBE 


80D3 

20 

B5 

AB 

3SR 

$ABB5 

(•schließt alle Kanäle 

80 D6 

40 

3B 

81 

3MP 

PRESTOR 


SREM: 







80D9 

20 

20 

81 

OSR 

PSPEIBE 


80DC 

20 

F8 

A8 

3SR 

$A8F8 

(•entspricht Basic-Bef. REM 

80DF 

40 

3B 

81 

3MP 

PRESTOR 

SNEXTTR: 






80 E2 

20 

20 

81 

3SR 

PSPEIBE 


80E5 

20 

06 

A9 

3SR 

$A906 

(•nächstes Trennz. suchen 

80E8 

40 

3B 

81 

3MP 

PRESTOR 


SINPUTl: 






80EB 

20 

20 

81 

DSR 

PSPEIBE 


80EE 

20 

OD 

AC 

OSR 

$ACOD 

(•entspr. Basic-Bef. INPUT 

80F1 

40 

3B 

81 

3MP 

PRESTOR 
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SPUFOCR: 


80F4 

20 

20 

81 

OSR 

PSPEIBE 


80F7 

20 

CA 

AA 

DSR 

$AACA 

,-Puffer mit 0 abschließen 

80FA 

4C 

3B 

81 

OMP 

PRESTOR 

;CR ausgeben 

SBZPLY: 

80FD 

20 

2C 

81 

DSR 

PSPEIBE 


8100 

20 

FB 

A8 

OSR 

$A8FB 

(•ProgrammZähler plus Y 

8103 

40 

3B 

81 

OMP 

PRESTOR 

SGETBYTl: 
8106 20 

20 

81 

DSR 

PSPEIBE 


8109 

20 

9E 

B7 

OSR 

$B79E 

;holt Byte-Wert 

8100 

40 

3B 

81 

OMP 

PRESTOR 

SGOTOll: 
810F 20 

2C 

81 

OSR 

PSPEIBE 


8112 

20 

A3 

A8 

OSR 

$A8A3 

(•springt zu Ze i le($14 ($15) 

8115 

40 

3B 

81 

OMP 

PRESTOR 

SSMNI: 

8118 

811A 

A5 

80 

01 

8B 

05 

LOA 

STA 

$01 

PSPEINMI 

(•Merker setzen 

8110 

20 

OE 

94 

OSR 

KERROMEIN 

;KERNAL-Rom einschalten 

8120 

40 

43 

FE 

OMP 

$FE43 

;zum Standard-NMI 

SOPEN: 

8123 

20 

2C 

81 

DSR 

PSPEIBE 


8126 

20 

BE 

El 

OSR 

$E1BE 

;Basic-Befehl OPEN 

8129 

4C 

3B 

81 

OMP 

PRESTOR 



PSPEIBE 

1 





812C 

80 

70 

05 

STA 

ZWSPEIl (-sichert momentanen Akku 

812F 

A5 

01 


LOA 

$01 (-holt Prozessorport 

8131 

80 

96 

05 

STA 

PORTSPEI (-sichert diesen Wert 

8134 

20 

F3 

82 

DSR 

BASROMEI (-schaltet Basic-Rom ein 

8137 

AO 

70 

C5 

LOA 

ZWSPEIl (-holt Akku wieder 

813A 

60 



RTS 



PRESTOR: 


813B 

80 

70 

05 

STA 

ZWSPEIl 

(•sichert momentanen Akku 

813E 

AO 

96 

C5 

LOA 

PORTSPEI 

(•holt alten Wert für Port 

8141 

85 

01 


STA 

$01 

(•speichert Port 

8143 

AO 

70 

C5 

LOA 

ZWSPEIl 

(•holt Akku wieder 

8146 

60 



RTS 






128 


Kapitel 6 


BEFCOLD; 


8147 

20 

F3 

82 

OSR 

BASROMEI 

814A 

20 

53 

E4 

asR 

$E453 

8140 

20 

BF 

E3 

OSR 

$E3BF 

8150 

A9 

OF 


LOA 

#$0F 

8152 

80 

21 

00 

STA 

VIOHIFAR 

8155 

A9 

06 


LOA 

#$06 

8157 

80 

20 

00 

STA 

VIORAFAR 

815A 

A9 

00 


LOA 

#$00 

815C 

AA 



TAX 


8150 

90 

00 

03 

STA 

$0300,X 

8160 

90 

00 

04 

STA 

$0400,X 

8163 

90 

00 

05 

STA 

$0500,X 

8166 

90 

00 

06 

STA 

$0600,X 

8169 

90 

00 

07 

STA 

$0700,X 

816C 

90 

00 

08 

STA 

$0800,X 

816F 

90 

00 

09 

STA 

$0900,X 

8172 

90 

00 

OA 

STA 

$OAOO,X 

8175 

90 

00 

OB 

STA 

$OBOO,X 

8178 

E8 



INX 


8179 

00 

E2 


BNE 

$8150 

817B 

A9 

7A 


LOA 

#$7A 

8170 

80 

08 

03 

STA 

$0308 

8180 

A9 

91 


LOA 

#$91 

8182 

80 

09 

03 

STA 

$0309 

8185 

A9 

80 


LOA 

#$80 

8187 

80 

OA 

03 

STA 

$030A 

818A 

A9 

8C 


LOA 

#$80 

818C 

80 

OB 

03 

STA 

$030B 

818F 

BO 

08 

82 

LOA 

MELOUNG,: 

8192 

FO 

06 


BEQ 

$819A 

8194 

20 

02 

FF 

OSR 

BSOUT 

8197 

E8 



IiNX 


8198 

00 

F5 


BNE 

$818F 

819A 

A9 

80 


LOA 

#$80 

819C 

85 

38 


STA 

$38 

819E 

85 

34 


STA 

$34 

81A0 

A9 

00 


LOA 

#$00 

81A2 

85 

33 


STA 

$33 

81 A4 

85 

37 


STA 

$37 

81A6 

A9 

82 


LOA 

#$82 

81A8 

80 

07 

03 

STA 

$0307 

81AB 

A9 

40 


LOA 

#$40 

81A0 

80 

06 

03 

STA 

$0306 

81B0 

A9 

82 


LOA 

#$82 

81B2 

80 

05 

03 

STA 

$0305 

81B5 

A9 

34 


LOA 

#$34 

81B7 

80 

04 

03 

STA 

$0304 


;Basic-Roin ein 
;Basic-Vektoren laden 
;Rain f. Basic vorbereiten 
,-Hellgrau 

;als Hinterqrundfarbe 
; B1 a u 

;als Rahmenfarbe 

;Null in 
/ 

;HiIfszellenbereich 
;($C300-CBFF) 

;schreiben 


/jeweils nächstes Byte 
/Schleife 

/Vektor ($0308,$0309) 

/ 'Basic-Befehl ausf.' auf 
/$917A = SBASBEF setzen 

/Vektor ($030A,$030B) 
/'arithm. Eiern, holen’ auf 
/$8C8D = SGETARI setzen 

/Einschaltmeldung 
/Endekriterium: Akku=0 
/Zeichen ausgeben 
/nächstes Zeichen 
/unbed. Sprung z. Schleife 

/Basic-RAM-Ende ($37,$38) 
/ Strinq-Unterqr• ($33,$34) 
/auf $8000 setzen 


/Vektor ($0306,$0307) 

/‘in Klartext umwand.’ auf 
,-$8240 = SEIST setzen 

/Vektor ($0304,$0305) 
/'Zeile umwandeln' auf 

,-$8234 = ZEIUMW setzen 
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81BA 

A9 

9E 


LDA 

#$9E 

,-Vektor ($0300,$0301) 

81BC 

8D 

01 

03 

STA 

$0301 

;’Basic-Warmstart' auf 

81BF 

A9 

90 


LDA 

#$9C 

;$9E9C = SWARM setzen 

81C1 

8D 

00 

03 

STA 

$0300 


81C4 

A9 

82 


LDA 

#$82 

,-Vektor ($0302,$0303) 

81C6 

8D 

03 

03 

STA 

$0303 

/'Interpreterschleife' auf 

81C9 

A9 

50 


LDA 

#$5C 

,-$8250 = SLOOP setzen 

81CB 

80 

02 

03 

STA 

$0302 


81CE 

A9 

82 


LDA 

#$82 

,-Vektor ($0318,$0319) 

81DO 

8D 

19 

03 

STA 

$0319 

;’NMI-Vektor’ auf 

81D3 

A9 

FA 


LDA 

#$FA 

;$82FA = SNMI setzen 

81D5 

8D 

18 

03 

STA 

$0318 


81D8 

A9 

83 


LDA 

#$83 

/Vektor ($0316,$0317) 

81DA 

8D 

17 

03 

STA 

$0317 

;'BRK-Vektor' auf 

81DD 

A9 

14 


LDA 

#$14 

,-$8314 = SBRK setzen 

81DF 

8D 

16 

03 

STA 

$0316 


81E2 

A5 

2B 


LDA 

$2B 


81E4 

A4 

20 


LDY 

$20 


81E6 

20 

08 

A4 

asR 

$A408 

,-Platz bis (A/Y) schaffen 

81E9 

20 

30 

E4 

asR 

$E430 

,-’xx bytes free' ausgeben 

81EC 

A9 

18 


LDA 

#$18 

,-Vektor $FFFA,$FFFB in RAM 

81EE 

8D 

FA 

FF 

STA 

$FFFA 

;’Hardware-NMI-Vektor’ auf 

81F1 

A9 

81 


LDA 

#$81 

,-$8118 = SSNMI setzen 

81F3 

8D 

FB 

FF 

STA 

$FFFB 


81F6 

A2 

FB 


LDX 

#$FB 

;$FB 

81F8 

9A 



TXS 


,-in Stackpointer schreiben 

81F9 

4C 

86 

E3 

DMP 

WARM 

,-zum Basic-Warmstart $E386 

SGETBYTC; 






81FC 

20 

31 

80 

asR 

SCHKCOM 

;prüft auf Komma 

81FF 

40 

06 

81 

OMP 

SGETBYTl 

,-holt Byte-Wert 

SGETBYTN; 






8202 

20 

DB 

83 

DSR 

INCBASBZ 

; über liest 1 Zeichen 

8205 

40 

06 

81 

OMP 

SGETBYTl 

,-holt Byte-Wert 

MELDUNG: 






8208 

90 

93 

2A 

2A 2A 

20 45 58 

50 (black) (clr) *** exp 

8211 

41 

4E 

44 

45 44 

20 43 42 

4D anded cbm 

821a 

20 

56 

32 

20 42 

41 53 49 

43 v2 basic 

8223 

20 

2A 

2A 

2A OD 

OD 00 

*** (er) (er) 

ENDSMB 






,-dient als Abschluß eines 
;Simon's Befehls 

822A 

20 

OE 

94 

OSR 

KERROMEI 

,-KERNAL-ROM einschalten 

822B 

58 



CLI 


/Interrupts ermöglichen 

822E 

20 

F3 

82 

asR 

BASROMEI 

/Basic-ROM ein 

8231 

4C 

AE 

A7 

OMP 

$A7AE 

/zur (normalen) Basic- 
,-Interpreterschleife 
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ZEIUMW: ;wandelt eine Zeile in 

;Interpretercode 


8234 

20 

EO 

82 

OSR 

BASROMAU 

;Basic-ROM aus 

8237 

20 

79 

AB 

OSR 

ZEIUMWl 

;Umw. f. Simon's Befehle 

823A 

20 

F3 

82 

OSR 

BASROMEI 

;Basic-ROM ein 

823D 

40 

70 

A5 

OMP 

$A570 

;zur (normalen) Umwandl. 

SEIST: 







8240 

08 



PHP 



8241 

48 



PHA 



8242 

20 

EO 

82 

OSR 

BASROMAU 

(■Basic aus 

8245 

68 



PLA 



8246 

28 



PLP 



8247 

40 

OB 

BE 

OMP 

SLIST3 

(•Simon* s Befehl dekodieren 

SLISTl; 







824A 

48 



PHA 



824B 

20 

F3 

82 

OSR 

BASROMEI 

(•Basic ein 

824 E 

68 



PLA 



824F 

28 



PLP 



8250 

40 

lA 

A7 

OMP 

$A71A 

(•zur Basic-LIST-Routine 

SLIST2 







8253 

48 



PHA 



8254 

20 

F3 

82 

OSR 

BASROMEI 

(•Basic ein 

8257 

68 



PLA 



8258 

28 



PLP 



8259 

40 

F6 

A6 

OMP 

$A6F6 

;Basic-LIST-Routine: 
(■Zeichen bis Zeilenende 
(dekodieren und ausgeben 

SLOOP: 






(Eingabe-Schleife 

825C 

78 



SEI 


8250 

A9 

96 


LOA 

#$96 

;IRQ-Vektor ($0314($0315) 

825F 

80 

15 

03 

STA 

$0315 

(•auf $9694 = SIRQ 

8262 

A9 

94 


LOA 

#$94 

(Stellen 

8264 

80 

14 

03 

STA 

$0314 


8267 

80 

91 

OB 

STA 

PLAYFLAG 

;Flag für PLAY rücksetzen 

826A 

A9 

00 


LOA 

#$00 

(■Interrupt-Maske im VIG 

8260 

80 

lA 

00 

STA 

VIOIRQM 

(•löschen (Int. verhindern) 

826F 

58 



OLI 



8270 

AO 

18 

00 

LOA 

VIOAOS 

;Adreß-Steuer-Byte des VIG 

8273 

09 

OB 


OMP 

#$0B 

;$0B ist Wert für HIRES 

8275 

00 

06 


BNE 

$8270 


8277 

20 

EO 

82 

OSR 

BASROMAU 


827A 

20 

37 

A8 

OSR 

NRM 

(•Standard-Werte hersteilen 

8270 

20 

F3 

82 

OSR 

BASROMEI 


8280 

AO 

B2 

05 

LOA 

AUTOFLAG 

;AUTO-Modus 

8283 

09 

OA 


OMP 

#$0A 

;$0A = aktiv 

8285 

FO 

03 


BEQ 

$828A 

;ja( dann weiter 

8287 

40 

83 

A4 

OMP 

$A483 

(•sonst zu Basic-Schleife 
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828A 

18 



OLO 



8288 

A8 

FE 

01 

LOA 

AUTOZI 

;momentane Zeilennummer 

828E 

68 

81 

05 

A80 

AUTOINO 

;plus Inkrement 

8291 

85 

63 


STA 

$63 

;für Umwandlung 

8293 

88 

FE 

01 

STA 

AUTOZI 

;und als neue Nummer sp. 

8296 

A8 

FF 

01 

LOA 

AUTOZI+1 

;Übertrag 

8299 

69 

00 


AOO 

#$00 

;addieren 

8298 

85 

62 


STA 

$62 

; und 

829D 

88 

FF 

01 

STA 

AUTOZI+1 

;speichern 

82A0 

A2 

90 


LOX 

#$90 

;Exponent ist $90 

82A2 

38 



SEO 



82A3 

20 

49 

80 

OSR 

$8049 

;nach Fließkomma wandeln 

82A6 

20 

OF 

88 

3SR 

$800F 

;in Text (ab $0100) umw. 

82A9 

A2 

00 


LOX 

#$00 

;als Zeiger in Text 

82A8 

88 

00 

01 

LOA 

$0100,X 

;Textzeichen holen 

82AE 

FO 

06 


8EQ 

$8286 

;Ende bei $00 

8280 

98 

77 

02 

STA 

TASTPUFF, 

X ;in Tastat.puff. ablegen 

8283 

E8 



INX 


;nächstes Zeichen 

8284 

80 

F5 


8NE 

$82A8 

/unbedingter Sprung 

8286 

A9 

20 


LOA 

#$20 

;Leerze ichen 

8288 

98 

77 

02 

STA 

TASTPUFF, 

X ; in Tastaturpuffer 

8288 

E8 



INX 


/Pufferzeiger eröhen 

828C 

86 

06 


STX 

$06 

;und speichern 

828E 

A9 

00 


LOA 

#$00 


82 00 

88 

82 

05 

STA 

AUTOFLAG 

;Auto-Modus rücksetzen 

8203 

20 

60 

A5 

OSR 

$A560 

/Eine Zeile einiesen 

8206 

84 

AA 


STY 

$AA 

/Y sichern 

8208 

AO 

00 


LOY 

#$00 


820A 

08 



INY 



8208 

89 

00 

02 

LOA 

$0200,Y 

/Puffer durchsuchen 

82 OE 

FO 

12 


8EQ 

$82E2 

/Zeilenende ? 

82D0 

09 

3A 


OMP 

#$3A 

/$39 ist Gode für '9' 

8282 

90 

F6 


800 

$82 OA 

/kleiner= '9',dann weiter 

8284 

09 

58 


OMP 

#$58 

/$5A ist Gode für ’z' 

8286 

80 

F2 


80S 

$820A 

/größer 'z', dann weiter 

8288 

A4 

AA 


LOY 

$AA 

/Y wieder hersteilen 

828A 

A9 

OA 


LOA 

#$0A 

/Auto-Modus wieder ein 

8280 

88 

82 

05 

STA 

AUTOFLAG 


828F 

40 

86 

A4 

OMP 

$A486 

/zur ßasic-Eingabeschleife 

82E2 

A9 

00 


LOA 

#$00 

/Auto-Modus aus 

82E4 

88 

82 

05 

STA 

AUTOFLAG 


82E7 

A4 

AA 


LOY 

$AA 

/Y wieder hersteilen 

82E9 

40 

86 

A4 

OMP 

$A486 

/zur ßasic-Eingabeschleife 

8ASR0MAU: 






82E0 

A5 

01 


LOA 

$01 

/Hole Prozessorport 

82EE 

29 

FE 


ANO 

#$FE 

/ lösche ßit 0 (LORAM) 

82F0 

85 

01 


STA 

$01 

/Speichere Prozessorport 

82F2 

60 



RTS 
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BASROMEI: 


82F3 

A5 

01 


LOA 

$01 

;Hole Prozessorport 

82F5 

09 

01 


ORA 

#$01 

;sezte Bit 0 

82F7 

85 

01 


STA 

$01 

(•Speichere Port 

82F9 

60 



RTS 



SNMI: 







82FA 

48 



PHA 


(■Register A(X(Y retten 

82FB 

8A 



TXA 



82FC 

48 



PHA 



82FD 

98 



TYA 



82FE 

48 



PHA 



82FF 

20 

OE 

94 

OSR 

KERROMEIN 

(•KERNAL ein 

8302 

A9 

7F 


LOA 

#$7F 

(•alle Bits im Maskenreg. 

8304 

80 

00 

DD 

STA 

CIA2ICR 

(■des CIA2 löschen 

8307 

AC 

00 

DD 

LOY 

CIA2ICR 

;Int.-Register lesen 

830A 

30 

35 


BMI 

$8341 

(■wenn NMI von CIA2( dann 







; zu $8341 

830C 

20 

BC 

F6 

OSR 

$F6BC 

;STOP-Taste abfragen 

830F 

20 

El 

FF 

OSR 

$FFE1 

(STOP-Taste prüfen 

8312 

DO 

20 


BNE 

$8341 

(•wenn nicht( dann weiter 

SBRK: 






(■wird bei STOP/RESTORE und 







(■bei BRK angesprungen 

8314 

A9 

04 


LOA 

#$04 


8316 

80 

88 

02 

STA 

VIDRAMHI 

(■Video-RAM ab $0400 

8319 

20 

A3 

FD 

OSR 

$FDA3 

(Interrupts vorbereiten 

831C 

20 

18 

E5 

OSR 

$E518 

(Bildschirm initialisieren 

831F 

A9 

OF 


LOA 

#$0F 

;hellgrau 

8321 

80 

21 

DO 

STA 

VICHIFAR 

(•als Hintergrundfarbe 

8324 

A9 

06 


LOA 

#$06 

(•blau 

8326 

80 

20 

DO 

STA 

VICRAFAR 

(•als Rahmenfarbe 

8329 

A9 

00 


LOA 

#$00 

;schwarz 

832B 

8D 

86 

02 

STA 

AKTFARB 

(•als aktuelle Zeichenfarbe 

832 E 

85 

04 


STA 

$04 

(•Hochkommamodus rücksetzen 

8330 

80 

B4 

C5 

STA 

MOBBEW 

;Spritebewegung aus 

8333 

80 

B3 

C5 

STA 

GMEMFLAG 

;Speicherverteilung norm. 

8336 

A9 

08 


LOA 

#$08 

(•Code f. (Sh/C= verh.) 

8338 

80 

91 

CB 

STA 

PLAYFLAG 

(■Flag für PLAY rücksetzen 

833B 

20 

02 

FF 

OSR 

BSOUT 

(■Zeichen CHR$(8) ausqeben 

833E 

6C 

02 

AO 

OMP. 

(BNMIVEC);zur normalen NMI-Behandl. 

8341 

4C 

72 

FE 

JMP 

$FE72 

(■zur Beh. von RS-232-NMI 

BEFMERGE: 






8344 

20 

DB 

83 

OSR 

INCBASBZ 

(■Code übe riesen 

8347 

20 

F3 

82 

OSR 

BASROMEI 

(Basic ein 

834A 

A9 

00 


LOA 

#$00 


8340 

85 

OA 


STA 

$0A 

;LOAD/VERIFY-Flag 

834E 

20 

04 

El 

OSR 

$E1D4 

(•Parameter f. LOAD holen 

8351 

38 



SEC 
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8352 

A5 

20 


LOA 

$20 

;Basic-Programm-Ende 

8354 

E9 

02 


SBO 

#$02 

;um 2 vermindern 

8356 

AA 



TAX 


;und als Startadresse 

8357 

A5 

2E 


LOA 

$2E 

;an LOAO-Routine 

8359 

E9 

00 


SBO 

#$00 

(•übergeben 

835B 

A8 



TAY 


;(X/Y)=(Low/High) 

835C 

A9 

00 


LOA 

#$00 

;LOAO/VERIFY-Flag 

835E 

20 

05 

FF 

OSR 

$FF05 

;LOAO-Routine 

8361 

BO 

19 


BOS 

$8370 

,-Error,dann Fehlerbehandl. 

8363 

20 

B7 

FF 

OSR 

$FFB7 

;REAOST; Status holen 

8366 

29 

BF 


ANO 

#$BF 

;Bit 6 ignorieren 

8368 

FO 

05 


BEQ 

$836F 

;ohne Fehler, dann weiter 

836A 

A2 

10 


LOX 

#$10 

(■Nummer von ' load error' 

836C 

4C 

37 

A4 

OMP 

$A437 

(•Fehlermeldung ausgeben 

836F 

86 

20 


STX 

$20 

(•Endadresse als Basic- 

8371 

84 

2E 


STY 

$2E 

;Programm-Ende speichern 

8373 

20 

59 

A6 

OSR 

$A659 

;Prgz. auf Anf.; GLR 

8376 

20 

33 

A5 

OSR 

$A533 

(•Programmzeilen neu binden 

8379 

40 

74 

A4 

OMP 

$A474 

; ready. 

837C 

40 

F9 

EO 

OMP 

KERERRB 

(•zur KERNAL-Fehlerbehandl. 

BEFRENUM: 






837F 

A9 

01 


LOA 

#$01 

(•Vektor ($A8,$A9) auf 

8381 

85 

A8 


STA 

$A8 

(■$0801 (Basic-Anf ang) 

8383 

A9 

08 


LOA 

#$08 

(•richten 

8385 

85 

A9 


STA 

$A9 


8387 

20 

OB 

83 

OSR 

INOBASBZ 

;Renumber-Gode überlesen 

838A 

20 

27 

94 

OSR 

SGETAOR 

(■Adresswert (Beginn) holen 

838D 

84 

A4 


STY 

$A4 

(■und nach $A4,$A5 bringen 

838F 

85 

A5 


STA 

$A5 


8391 

20 

31 

80 

OSR 

SOHKOOM 

;Komma ? 

8394 

20 

27 

94 

OSR 

SGETAOR 

(•Wert (Schrittweite) holen 

8397 

80 

AO 

05 

STY 

AY 

(•und ab $05 AG ab legen 

839A 

8D 

AO 

05 

STA 

AY + 1 


839D 

AO 

00 


LOY 

#$00 


839F 

Bl 

A8 


LOA 

($A8),Y 

(■Vorwärtszeiger Low 

83A1 

85 

09 


STA 

$09 

(•nach $09 

83A3 

20 

FO 

9A 

OSR 

INGA8A9 

(■nächst. Byte im Basic-Pr. 

83A6 

Bl 

A8 


LOA 

($A8) ,Y 

(•Vorwärtszeiger High 

83A8 

85 

OA 


STA 

$0A 

(•nach $0A 

83AA 

20 

FO 

9A 

OSR 

INGA8A9 

(■nächst. Byte im Basic-Pr. 

83AD 

A5 

A4 


LOA 

$A4 

;Soll-Zeilennr. Low 

83AF 

91 

A8 


STA 

($A8) ,Y 

(•als Zeilennr. Low speich. 

83B1 

20 

FO 

9A 

OSR 

INGA8A9 

(•nächst. Byte im Basic-Pr. 

83B4 

A5 

A5 


LOA 

$A5 

;So 11-Zeilennr. High 

83B6 

91 

A8 


STA 

($A8),Y 

(■als Zeilennr. High spei. 

83B8 

A5 

09 


LOA 

$09 

(•Vorwärtszeiger Low 

83BA 

05 

OA 


ORA 

$0A 

(■und High 

83BC 

FO 

lA 


BEQ 

$8308 

(•beide Null, dann fertig 
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83BE 

A5 

09 



LOA 

$09 

;Vorwäntszeiger nach 
;$A8,$A9 bringen 


83C0 

85 

A8 



STA 

$A8 


83C2 

A5 

OA 



LOA 

$0A 


83C4 

85 

A9 



STA 

$A9 



83C6 

18 




OLO 




83C7 

A5 

A4 



LOA 

$A4 

;So 11-Zeilennummer 


83C9 

6D 

AO 

05 


ADO 

AY 

;um Inkrement erhöhen 


83CC 

85 

A4 



STA 

$A4 



83CE 

A5 

A5 



LOA 

$A5 

; H igh-Byte 


83D0 

60 

AD 

05 


ADO 

AY + 1 



83D3 

85 

A5 



STA 

$A5 



83D5 

4C 

9F 

83 


JMP 

$839F 

(•nächste Zeile umnumerier. 

83D8 

40 

2A 

82 


3MP 

ENDSMB 

(•Befehl abschließen 


INCBASBZ: 








83DB 

E6 

7A 



INO 

$7A 

(•erhöhe Low-Byte 


83DD 

DO 

02 



BNE 

$83E1 

(•wenn kein Übertrag(Weiter 

83DF 

E6 

7B 



INO 

$7B 

(•sonst erhöhe High-Byte 


83E1 

60 




RTS 



TABBEF 

: 






(•Tabelle der Befehlswörter 








(•von Simon's Basic; 









(•Trennung voneinaner durch 








(•Klammeraffe (§); Lfd. 

Nr. 

83E2 

48 

49 

52 

45 

53 

40 

hires§ 

1 

83E8 

50 

40 

4F 

54 

40 


plot§ 

2 

83ED 

40 

49 

4E 

45 

40 


line§ 

3 

83F2 

42 

40 

4F 

43 

4B 

40 

block§ 

4 

83F8 

46 

43 

48 

52 

40 


f chr§ 

5 

83FD 

46 

43 

4F 

40 

40 


fcoll 

6 

8402 

46 

49 

40 

40 

40 


f ill§ 

7 

8407 

52 

45 

43 

40 



rec§ 

8 

840B 

52 

4F 

54 

40 



rot§ 

9 

840F 

44 

52 

41 

57 

40 


draw§ 

10 

8414 

43 

48 

41 

52 

40 


char§ 

11 

8419 

48 

49 

20 

43 

4F 

40 40 

hi col§ 

12 

8420 

49 

4E 

56 

40 



inv§ 

13 

8424 

46 

52 

41 

43 

40 


f r ac§ 

14 

8429 

40 

4F 

56 

45 

40 


move§ 

15 

842E 

50 

40 

41 

43 

45 

40 

place§ 

16 

8434 

55 

50 

42 

40 



upb§ 

17 

8438 

55 

50 

57 

40 



upw§ 

18 

843C 

40 

45 

46 

54 

57 

40 

leftw§ 

19 

8442 

40 

45 

46 

54 

42 

40 

leftb§ 

20 

8448 

44 

4F 

57 

4E 

42 

40 

downb§ 

21 

844E 

44 

4F 

57 

4E 

57 

40 

downw§ 

22 

8454 

52 

49 

47 

48 

54 

42 40 

rightb§ 

23 

845B 

52 

49 

47 

48 

54 

57 40 

rightw§ 

24 

8462 

40 

55 

40 

54 

49 

40 

multi§ 

25 

8468 

43 

4F 

40 

4F 

55 

52 40 

colour§ 

26 
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846F 4D 4D 4F 42 40 mmob§ 27 

8474 42 46 4C 41 53 48 40 bflash§ 28 


8478 40 4F 42 20 53 45 54 40 

8483 40 55 53 49 43 40 

8489 46 40 41 53 48 40 

848F 52 45 50 45 41 54 40 

8496 50 40 41 59 40 

8498 3E 3E 40 

849E 43 45 4E 54 52 45 40 

84A5 45 4E 56 45 4 0 4F 50 45 

84AE 43 47 4F 54 4F 40 

8484 57 41 56 45 40 

8489 46 45 54 43 48 40 

848F 41 54 28 40 

8403 55 4E 54 49 40 40 

8409 3E 3E 40 

8400 3E 3E 40 

840F 55 53 45 40 

8403 3E 3E 40 

8406 47 40 4F 42 41 40 40 

8400 3E 3E 40 

84 EO 52 45 53 45 54 40 

84E6 50 52 4F 43 40 

84E8 43 41 40 40 40 

84F0 45 58 45 43 40 

84F5 45 4E 44 20 50 52 4F 43 

84FE 45 58 49 54 40 

8503 45 4E 44 20 40 4F 4F 50 

8500 4F 4E 20 48 45 59 40 

8513 44 49 53 41 42 40 45 40 

8518 5 2 45 53 55 40 4 5 40 

8522 40 4F 4F 50 40 

8527 44 45 40 41 59 40 

8520 3E 3E 40 

8530 3E 3E 40 

8533 3E 3E 40 

8536 3E 3E 40 

8539 53 45 43 55 52 45 40 

8540 44 49 53 41 50 41 40 

8547 43 49 52 43 40 45 40 

854E 4F 4E 20 45 52 52 4F 52 

8557 4E 4F 20 45 52 52 4F 52 

8560 40 4F 43 41 40 40 

8566 52 43 4F 40 50 40 

8560 45 40 53 45 40 

8571 52 45 54 52 41 43 45 40 

8579 54 52 41 43 45 40 

857F 44 49 52 40 

8583 50 41 47 45 40 

8588 44 55 40 50 40 

8580 46 49 4E 44 40 


mob set§ 29 

music§ 30 

flash§ 

repeat§ 

play§ 

centre§ 35 

40 envelope§ 
cgo to§ 
wa ve§ 
fetch§ 

at(§ 40 

unti1§ 

pp§ 

uses 

pp§ 45 

globa1§ 

hS 

resets 

proc§ 

call§ 50 

exec§ 

40 end proc§ 

exit§ 

40 end loop§ 

on key§ 55 

disable§ 

resume§ 

loop§ 

delay§ 

pp§ 60 

pp§ 

PM§ 

PM§ 

secures 

disapa§ 65 

circle§ 

40 on error§ 

40 no error§ 

loca1§ 

rcomp§ 70 

e Ises 
retrace§ 
trace§ 
dir§ 
page§ 
dum p§ 
f ind§ 


75 
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8592 

4F 

50 

54 

49 

4F 

4E 

40 



8599 

41 

55 

54 

4F 

40 





859E 

4F 

40 

44 

40 






85A2 

4A 

4F 

59 

40 






85A6 

4D 

4F 

44 

40 






85AA 

44 

49 

56 

40 






85AE 

3E 

3E 

40 







85B1 

44 

55 

50 

40 






85B5 

49 

4E 

4B 

45 

59 

40 




85BB 

49 

4E 

53 

54 

40 





8500 

54 

45 

53 

54 

40 





8505 

40 

49 

4E 

40 






8509 

45 

58 

4F 

52 

40 





85CE 

49 

4E 

53 

45 

52 

54 

40 



85D5 

50 

4F 

54 

40 






85D9 

50 

45 

4E 

58 

40 





85DE 

3E 

3E 

40 







85E1 

50 

45 

4E 

59 

40 





85E6 

53 

4F 

55 

4E 

44 

40 




85EC 

47 

52 

41 

50 

48 

49 

43 

53 

40 

85F5 

44 

45 

53 

49 

47 

4E 

40 



85FC 

52 

40 

4F 

43 

4D 

4F 

42 

40 


8604 

43 

4D 

4F 

42 

40 





8609 

42 

43 

4B 

47 

4E 

44 

53 

40 


8611 

50 

41 

55 

53 

45 

40 




8617 

4E 

52 

40 

40 






861B 

4D 

4F 

42 

20 

4F 

46 

46 

40 


8623 

4F 

46 

46 

40 






8627 

41 

4E 

47 

40 

40 





8620 

41 

52 

43 

40 






8630 

43 

4F 

40 

44 

40 





8635 

53 

43 

52 

53 

56 

40 




863B 

53 

43 

52 

40 

44 

40 




8641 

54 

45 

58 

54 

40 





8646 

43 

53 

45 

54 

40 





864B 

56 

4F 

40 

40 






864F 

44 

49 

53 

4B 

40 





8654 

48 

52 

44 

43 

50 

59 

40 



865B 

4B 

45 

59 

40 






865F 

50 

41 

49 

4E 

54 

40 




8665 

40 

4F 

57 

20 

43 

4F 

40 

40 


866D 

43 

4F 

50 

59 

40 





8672 

4D 

45 

52 

47 

45 

40 




8678 

52 

45 

4E 

55 

4D 

42 

45 

52 

40 

8681 

4D 

45 

40 

40 






8685 

44 

45 

54 

45 

43 

54 

40 



8680 

43 

48 

45 

43 

4B 

40 




8692 

44 

49 

53 

50 

40 

41 

59 

40 


869A 

45 

52 

52 

40 






869E 

4F 

55 

54 

40 






86A2 

00 










option§ 

auto§ 

old§ 

joy| 

mod§ 

di v§ 


|JM§ 

dups 

inkey§ 

i nst§ 

test§, 

lin§ 

exor§ 

insert§ 

pot§ 

penx§ 

pp§ 

penyS 

sound§ 

graphics§ 

design§ 

rlocmob§ 

cmob§ 

bckgnds§ 

pa use§ 

nrm§ 

mob off§ 

off§ 

angl§ 

arc§ 

cold§ 

scrsv§ 

scrld§ 

text§ 

cset§ 

vol§ 

disk§ 

hrdcpy§ 

key§ 

paint§ 

low col§ 

copy§ 

merge§ 

renumber§ 

meiii§ 

detect§ 

check§ 

display§ 

errs 

out§ 


80 

85 

90 

95 

100 

105 

110 

115 

120 

125 

127 
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8 6 A3 

44 

53 

20 

4 3 4 2 40 0 0 

“ds-cbm“ 


TAB?: 







86AB 

20 

80 

FF 

2E 30 00 80 

FF 30 2E (??? 

) 

SGETSTRN: 






86B4 

20 

DB 

83 

OSR INCBASBZ ;überlies 1 Zeichen 

SGETSTR: 






86B7 

20 

3A 

80 

OSR SFRMEVL ;hole Ausdruck 

86BA 

20 

43 

80 

OSR SFRESTR ;hole Strinqp 

araraeter 

86BD 

85 

69 


STA $69 

,-Länge nach $ 

69 

86BF 

A5 

23 


LOA $23 

/Adresse nach 

$22,$23 

86C1 

A6 

22 


LDX $22 



86C3 

60 



RTS 



* 

Sprungtabelle für Befehlsausführung 



Zieladresse ist um 1 

erhöht, da Aufruf 

mit RTS 





Zieladr. 

Zielmarke 

Lfd.Nr 

SPRTAB 

: 






86C4 

FE 

91 


$91FF 

befhires 

1 

86C6 

66 

92 


$9267 

befplot 

2 

86C8 

4F 

93 


$9350 

bef1ine 

3 

86CA 

6D 

BO 


$BC6E 

befblock 

4 

86CC 

CF 

A2 


^200 

beffehr 

5 

86CE 

El 

A2 


$A2E2 

beffcol 

6 

86D0 

96 

A2 


$A297 

beff ill 

7 

86D2 

F6 

BA 


$BAF7 

befrec 

8 

86D4 

5D 

Al 


$A15E 

befrot 

9 

86D6 

56 

AO 


$A057 

befdraw 

10 

86D8 

85 

Al 


$A186 

befchar 

11 

86DA 

6F 

A2 


M270 

befhicol 

12 

86DC 

5C 

AC 


$AC5D 

movebef 

13 

86DE 

89 

88 


$888A 

badmode 

14 

86E0 

5C 

AC 


$AC5D 

movebef 

15 

86E2 

89 

88 


$888A 

badmode 

16 

86E4 

50 

AC 


$AC5D 

movebef 

17 

86E6 

50 

AC 


$AC5D 

movebef 

18 

86E8 

50 

AC 


$AC5D 

movebef 

19 

86EA 

50 

AC 


$AC5D 

movebef 

20 

86EC 

50 

AC 


$AC5D 

movebef 

21 

86EE 

50 

AC 


$AC5D 

movebef 

22 

86F0 

50 

AC 


$AC5D 

movebef 

23 

86F2 

50 

AC 


$AC5D 

movebef 

24 

86F4 

E9 

94 


$94EA 

befmulti 

25 

86F6 

36 

95 


$9537 

befcolour 

26 

86F8 

07 

95 


$95C8 

befmmob 

27 

86FA 

68 

96 


$9669 

befbflash 

28 

86FC 

09 

96 


$96DA 

befmobset 

29 

86FE 

58 

97 


$9759 

befmusic 

30 

8700 

8F 

97 


$9790 

befflash 

31 
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8702 

F6 

9A 

$9AF7 

befrepeat 

32 

8704 

17 

99 

$9918 

befplay 

33 

8706 

17 

99 

$9918 

befplay 

34 

8708 

46 

99 

$9947 

befCentre 

35 

870A 

78 

99 

$9979 

befenvelope 

36 

870C 

E7 

99 

$99E8 

befcgoto 

37 

870E 

F6 

99 

$99F7 

befwave 

38 

8710 

03 

BO 

$B004 

beffetch 

39 

8712 

89 

88 

$888A 

badmode 

40 

8714 

14 

9B 

$9B15 

befunti1 

41 

8716 

3B 

A3 

$A330 

befglobal 

42 

8718 

3B 

A3 

$A330 

befglobal 

43 

871A 

92 

B3 

$B393 

befuse 

44 

8710 

92 

B3 

$B393 

befuse 

45 

871E 

3B 

A3 

$A330 

befgloba1 

46 

8720 

04 

90 

$9005 

befreset 

47 

8722 

04 

90 

$9005 

befreset 

48 

8724 

2F 

9F 

$9F30 

befproc 

49 

8726 

29 

90 

$902A 

befcall 

50 

8728 

E2 

90 

$90E3 

befexec 

51 

872A 

18 

90 

$9019 

befendproc 

52 

8720 

36 

90 

$9037 

befexit 

53 

872E 

6E 

90 

$906F 

befendloop 

54 

8730 

88 

90 

$9089 

befonkey 

55 

8732 

Bl 

90 

$90B2 

befdisable 

56 

8734 

OE 

9E 

$9E0F 

befresume 

57 

8736 

23 

9E 

$9E24 

befloop 

58 

8738 

41 

9E 

$9E42 

befdelay 

59 

873A 

4A 

9E 

$9E4B 

befsecure 

60 

8730 

4A 

9E 

$9E4B 

befsecure 

61 

873E 

4A 

9E 

$9E4B 

befsec ure 

62 

8740 

4A 

9E 

$9E4B 

befsecure 

63 

8742 

4A 

9E 

$9E4B 

befsecure 

64 

8744 

73 

91 

$9174 

befO 

65 

8746 

88 

94 

$9489 

befcircle 

66 

8748 

60 

9E 

$9E6E 

befonerr 

67 

874A 

93 

9E 

$9E94 

befnoe rr 

68 

8740 

F3 

A2 

$A2F4 

beflocal 

69 

874E 

lE 

9F 

$9F1F 

befrcomp 

70 

8750 

2F 

9F 

$9F30 

befproc 

71 

8752 

47 

9B 

$9B48 

befretrace 

72 

8754 

59 

9B 

$9B5A 

beftrace 

73 

8756 

45 

95 

$9546 

befdir 

74 

8758 

35 

98 

$9836 

befpage 

75 

875A 

3E 

9F 

$9F3F 

befdump 

76 

8750 

93 

A5 

$A594 

beff ind 

77 

875E 

62 

9B 

$9B63 

befOption 

78 

8760 

05 

9B 

$9B06 

befauto 

79 

8762 

09 

9E 

$9E0A 

befold 

80 

8764 

89 

88 

$888A 

badmode 

81 

8766 

89 

88 

$888A 

badmode 

82 
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8768 

89 

88 

$888A 

badmode 

83 

876A 

89 

88 

$888A 

badmode 

84 

876C 

89 

88 

$888A 

badmode 

85 

876 E 

89 

88 

$888A 

badmode 

86 

8770 

89 

88 

$888A 

badmode 

87 

8772 

89 

88 

$888A 

badmode 

88 

8774 

89 

88 

$888A 

badmode 

89 

8776 

89 

88 

$888A 

badmode 

90 

8778 

89 

88 

$888A 

badmode 

91 

877A 

89 

88 

$888A 

badmode 

92 

877C 

89 

88 

$888A 

badmode 

93 

877E 

89 

88 

$888A 

badmode 

94 

8780 

89 

88 

$888A 

badmode 

95 

8782 

89 

88 

$888A 

badmode 

96 

8784 

89 

88 

$888A 

badmode 

97 

8786 

2D 

A6 

$A62E 

befdesign 

98 

8788 

67 

A7 

$A768 

befrlocm 

99 

878A 

A5 

A7 

$A7A6 

befcmob 

100 

8780 

84 

A7 

$A7B5 

befbckgnds 

101 

878E 

El 

A7 

$A7E2 

befpause 

102 

8790 

30 

A8 

$A831 

befnrm 

103 

8792 

55 

A8 

$A856 

befmoboff 

104 

8794 

64 

A8 

$A865 

befoff 

105 

8796 

OF 

AB 

$AB10 

befang1 

106 

8798 

75 

A8 

$A876 

befarc 

107 

879A 

46 

81 

$8147 

bef CO Id 

108 

8790 

8E 

81 

$B18F 

befscrsv 

109 

879E 

08 

81 

$8100 

befscrId 

110 

87A0 

28 

82 

$8229 

beftext 

111 

87A2 

00 

83 

$8300 

befcset 

112 

8 7 A4 

3E 

83 

$B33F 

befvol 

113 

87A6 

50 

83 

$8350 

befdisk 

114 

87A8 

9F 

84 

$B4A0 

befhrdcpy 

115 

87AA 

8F 

85 

$B590 

befkey 

116 

87A0 

E7 

85 

$B5E8 

befpaint 

117 

87AE 

08 

93 

$9300 

beflowcol 

118 

87B0 

FO 

89 

$B9F1 

befcopy 

119 

8782 

43 

83 

$8344 

befmenge 

120 

8784 

7E 

83 

$837F 

befrenum 

121 

8786 

AO 

80 

$BOAO 

befmem 

122 

8788 

F6 

80 

$B0F7 

befdetect 

123 

878A 

F6 

80 

$B0F7 

befdetect 

124 

8780 

12 

BE 

$BE13 

befdisplay 

125 

878E 

89 

88 

$888A 

badmode 

126 

8700 

00 

9E 

$9E01 

befout 

127 


139 
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FEHLERMELDUNGEN: 


87c2 

50 

52 

4f 

43 

20 

4e 

4f 

54 

20 

proc not found 


87cb 

46 

4f 

55 

4e 

44 

00 





87cll 

49 

4e 

53 

45 

52 

54 

20 

54 

4f 

insert too large 


87da 

4f 

20 

4c 

41 

52 

47 

45 

00 



87e2 

53 

54 

52 

49 

4e 

47 

20 

54 

4f 

String to large 


87eb 

20 

4c 

41 

52 

47 

45 

00 




87f2 

4e 

4f 

54 

20 

42 

49 

4e 

41 

52 

not binary char 


87f b 

59 

20 

43 

48 

41 

52 

00 




8802 

4e 

4f 

54 

20 

48 

45 

58 

20 

43 

not hex char 


880b 

48 

41 

52 

00 








880f 

45 

4e 

44 

20 

50 

52 

4f 

43 

20 

end proc without 

exec 

8818 

57 

49 

54 

48 

4f 

55 

54 

20 

45 


8821 

58 

45 

43 

00 








8825 

45 

4e 

44 

20 

4c 

4f 

4f 

50 

20 

end loop without 

loop 

882e 

57 

49 

54 

48 

4f 

55 

54 

20 

4c 

8837 

4f 

4f 

50 

00 








883b 

55 

4e 

54 

49 

4c 

20 

57 

49 

54 

until without repeat 

8844 

48 

4f 

55 

54 

20 

52 

45 

50 

45 



884d 

41 

54 

00 









8850 

53 

54 

41 

43 

4b 

20 

54 

4f 

4f 

stack too large 


8859 

20 

4c 

41 

52 

47 

45 

00 




8860 

54 

4f 

4f 

20 

46 

45 

57 

20 

4c 

too few lines 


8869 

49 

4e 

45 

53 

00 







886e 

42 

41 

44 

20 

43 

48 

41 

52 

20 

bad char for a mob 

8877 

46 

4f 

52 

20 

41 

20 

4d 

4f 

42 



8880 

00 











8881 

42 

41 

44 

20 

4d 

4f 

44 

45 

00 

bad mode 



BADMODE: 


888A 

A9 

00 


LDA 

#$00 

,'Fehler Nr. 0 

SERROUT: 





;gibt Fehlermeldung (Feh- 







;lernummer im Akku) aus 

8880 

OA 



ASL 

A 

;Fehlernummer verdoppeln 

888D 

A8 



TAY 


;als Zeiger in Fehlm.tab. 

888E 

B9 

BB 

88 

LDA 

$FEHLMTAB+1,Y ,'Adresse der Fehler- 

8891 

85 

21 


STA 

$21 

;meldung nach $20,$2 

8893 

B9 

BA 

00 

00 

LDA 

$FEHLMTAB 

,Y 

8896 

85 

20 


STA 

$20 


8898 

20 

F3 

82 

OSR 

BASROMEI 

,'Basic ein 

889B 

20 

OE 

94 

3SR 

KERROMEIN 

;KERNAL ein 

889E 

A9 

3F 


LDA 

#$3F 

;F ragezeichen 

88A0 

20 

D2 

FF 

OSR 

BSOUT 

,'ausgeben 

88A3 

AO 

00 


LDY 

#$00 


88A5 

Bl 

20 


LDA 

($20),Y 

,'Zeichen der Fehlerm. 

88A7 

FO 

06 


BEQ 

$88AF 

;Endekriterium = 0 

88A9 

20 

D2 

FF 

OSR 

BSOUT 

,'Zeichen ausgeben 

88AC 

08 



INY 


,'nächstes Zeichen 

88AD 

DO 

F6 


BNE 

$88A5 

,'Schle ife 
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88AF 

A4 

3A 


LDY 

$3A 

;Zeilennummer 

high 

88B1 

08 



INY 


;wenn ($3A) = 

$FF 

88B2 

FO 

03 


BEQ 

$88B7 

;war, dann weiter 

88B4 

20 

02 

BD 

OSR 

$BD02 

;'in Zeilennr 

. ' ausgeben 

88B7 

40 

86 

E3 

OMP 

WARM 

;zum Basic-Warmstart 

FEHLMTAB: 



Adresse der Fehlermeldung 

Lfd.Nr. 

88BA 

81 

88 


$8881 


0 

88BC 

02 

87 


$8702 


1 

88BE 

Dl 

87 


$87D1 


2 

88C0 

E2 

87 


$87E2 


3 

88C2 

F2 

87 


$87F2 


4 

88C4 

02 

88 


$8802 


5 

88C6 

OF 

88 


$880F 


6 

88C8 

25 

88 


$8825 


7 

88CA 

3B 

88 


$883B 


8 

88CC 

50 

88 


$8850 


9 

88CE 

60 

88 


$8860 


10 

88D0 

6E 

88 


$886E 


11 

88D2 

81 

88 


$8881 


12 

FNOOY: 








88D4 

AD 

00 

DO 

LDA 

OIAIPRA 

;CIA1 Port A 


88D7 

85 

20 


STA 

$20 

(Zwischenspeichern 

88D9 

29 

EF 


AND 

#$EF 

;Bit 4 (Feuer 

) wegblendei 

88DB 

8D 

70 

OB 

STA 

OOYWERT 

;speichern 


88DE 

A2 

00 


LDX 

#$00 



88E0 

BD 

12 

89 

LDA 

TABOOY,X 

;mit Wert aus 

Tabe 1 le 

88E3 

OD 

70 

OB 

OMP 

OOYWERT 

;vergleichen 


88E6 

FO 

OD 


BEQ 

$88F5 

/gefunden, dann weiter 

88E8 

E8 



INX 


/nächsten Tabellenwert 

88E9 

EO 

08 


OPX 

#$08 

/Tabellende nach 8 Werte 

88EB 

DO 

F3 


BNE 

$88E0 

/nicht err., 

dann weiter 

88ED 

A9 

00 


LDA 

#$00 

/nicht gef•, 

dann 0 

88EF 

8D 

70 

OB 

STA 

OOYWERT 

/speichern 


88F2 

40 

F9 

88 

OMP 

$88F9 



88F5 

E8 



INX 


/Tabe1lenindex + 1 

88F6 

8E 

70 

OB 

STX 

OOYWERT 

/als Wert speichern 

88F9 

A5 

20 


LDA 

$20 

/urspr. Abfragewert 

88FB 

29 

90 


AND 

#$90 

/Bit 7 und Bit 4 checken 

88FD 

DO 

08 


BNE 

$8907 

/gesetzt, dann weiter 

88FF 

AD 

70 

OB 

LDA 

OOYWERT 

/Wert mit 


8902 

09 

80 


ORA 

#$80 

/128 oder-verknüpfen 

8904 

8D 

70 

OB 

STA 

OOYWERT 



8907 

AO 

70 

OB 

LDY 

OOYWERT 

/Low-Byte v. 

Ergebnis 

890A 

A2 

00 


LDX 

#$00 

/High-Byte v. 

Ergebnis 

8900 

20 

DB 

83 

OSR 

INCBASBZ 

/Code überlesen 

890F 

40 

OD 

80 

OMP 

SXYFLP 

/nach Fließk. 

umwände 1n 
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TABOOY: 


8912 

6E 

66 

67 

65 6D 

69 6B 6A 

,-Werte f Ooyst.-Ste1lungen 

FNPOT: 







891A 

20 

73 

00 

OSR 

OHRGET 

;Gode überlesen 

891D 

20 

FA 

AE 

OSR 

OHKKLA 


8920 

20 

15 

94 

OSR 

SGETADR2 


8923 

20 

F7 

AE 

OSR 

GHKKLZ 


8926 

A5 

65 


LDA 

$65 

;FAG-Exp. 

8928 

DO 

06 


BNE 

$8930 

;wenn nicht 0, dann weiter 

892A 

AC 

19 

D4 

LDY 

$D419 

;Paddle-Wert 0 vom SID 

892D 

40 

33 

89 

OMP 

$8933 


8930 

AO 

lA 

D4 

LDY 

$D4 lA 

;Paddle-Wert 1 vom SID 

8933 

84 

63 


STY 

$63 

;Low-Byte Ergebnis 

8935 

A2 

00 


LDX 

#$00 

;High-Byte 

8937 

40 

OD 

80 

OMP 

SXYFLP 

;nach Fließk. wandeln 

FNPENX; 







893A 

20 

4E 

89 

OSR 

PENABFR 

;Abfrage-Routine (s.u.) 

8930 

AO 

00 

05 

LDY 

LPX 

8940 

40 

46 

89 

OMP 

$8946 

;zur Umwandlung n. Fließk. 

FNPENY; 







8943 

AO 

01 

05 

LDY 

LPY 


8946 

A2 

00 


LDX 

#$00 


8948 

20 

DB 

83 

OSR 

INGBASBZ 

;Gode überlesen 

894B 

40 

OD 

80 

OMP 

SXYFLP 

;X/Y nach Fließkomma 

PENABFR: 






894E 

AD 

19 

DO 

LDA 

VIGIRQF 

;IRQ-Flags im VIG 

8951 

29 

08 


AND 

#$08 

;Light-Pen-Strobe ? 

8953 

FO 

F9 


BEQ 

PENABFR 

;wenn nicht, dann nochmal 

8955 

AD 

13 

DO 

LDA 

VIGLPX 

;LPX-Wert vom VIC 

8958 

8D 

00 

05 

STA 

LPX 

;speichern 

895B 

AD 

14 

DO 

LDA 

VIGLPY 

,-analog f. Y 

895E 

8D 

01 

05 

STA 

LPY 

8961 

AD 

19 

DO 

LDA 

VIGIRQF 

;IRQ-Flags im VIG 

8964 

29 

F7 


AND 

#$F7 

;Bit 3 löschen 

8966 

8D 

19 

DO 

STA 

VIGIRQF 

,-Flags speichern 

8969 

60 



RTS 


TRACEl 

. 






896A 

’ A5 

39 


LDA 

$39 

; akt. Ze i lennr• 

8960 

85 

63 


STA 

$63 

;nach $63,$62 bringen 

896E 

A5 

3A 


LDA 

$3A 

8970 

85 

62 


STA 

$62 


8972 

A5 

7B 


LDA 

$7B 

,-akt. Befehlszeiger 

8974 

09 

03 


OMP 

#$03 

,-Test auf Direktmodus 

8976 

BO 

01 


BOS 

$8979 

,-nein, dann weiter 

8978 

60 



RTS 
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8979 

A2 

90 

LDX 

#$90 

/Exponent f. SXFLP 

897B 

38 


SEC 


897C 

20 

88 80 

OSR 

SXFLP 

/Zeilennr. im FAC 

897F 

20 

B5 80 

OSR 

SFACASC 

;in Text umwandeln 

8982 

20 

98 89 

OSR 

TRSHIFT 

/alte Zeilennrn. verschieb 

8985 

20 

3A 8A 

OSR 

WEISSECK 

/weißes Eck am Bildschirm 

8988 

A2 

00 

LDX 

#$00 


898A 

BD 

00 01 

LDA 

$0100,X 

/Text ab $0100 (= 'FAC ) 

898D 

FO 

08 

BEQ 

$8997 

/Ende bei 0-Kode 

898F 

49 

80 

EOR 

#$80 

/Bit 7 (RVS) setzen 

8991 

9D 

55 C5 

STA 

TRACETAB+36,X ;an Tabelle anfügen 

8994 

E8 


INX 


/nächstes Zeichen 

8995 

DO 

F3 

BNE 

$898A 

/unbed. Sprung 

8997 

60 


RTS 


TRSHIFT: 





8998 

78 


SEI 



8999 

A9 

C5 

LDA 

#$C5 

/Zeiger $23,24 auf $C531 

8998 

85 

24 

STA 

$24 

899D 

A9 

31 

LDA 

#$31 


899F 

85 

23 

STA 

$23 


89A1 

A9 

C5 

LDA 

#$C5 

/Zeiger $20,21 auf $C537 

89A3 

85 

21 

STA 

$21 

89A5 

A9 

37 

LDA 

#$37 


89A7 

85 

20 

STA 

$20 


89A9 

AO 

00 

LDY 

#$00 

/Zähler in einem Eintrag 

89AB 

A2 

00 

LDX 

#$00 

/Zähler für Einträge 

89AD 

Bl 

20 

LDA 

($20) ,Y 

/I Byte transferieren 

89AF 

91 

23 

STA 

($23),Y 

89B1 

C8 


INY 


/nächstes Byte des Eintr. 

89B2 

CO 

05 

CPY 

#$05 

/I Eintrag = 6 Byte 
/'innere' Schleife 

89B4 

DO 

F7 

BNE 

$89AD 

89B6 

18 


CLC 



89B7 

A5 

20 

LDA 

$20 

/$20,$21 um 6 erhöhen 

89B9 

69 

06 

ADC 

#$06 


89BB 

85 

20 

STA 

$20 


89BD 

A5 

21 

LDA 

$21 


89BF 

69 

00 

ADC 

#$00 


89C1 

85 

21 

STA 

$21 


89C3 

18 


CLC 



89C4 

A5 

23 

LDA 

$23 

/$23,$24 um 6 erhöhen 

89C6 

69 

06 

ADC 

#$06 


89C8 

85 

23 

STA 

$23 


89CA 

A5 

24 

LDA 

$24 


89CC 

69 

00 

ADC 

#$00 


89CE 

85 

24 

STA 

$24 


89D0 

E8 


INX 


/nächsten Eintrag 

89D1 

AO 

00 

LDY 

#$00 

89D3 

EO 

06 

CPX 

#$06 

/7 Einträge 
/'äußere' Schleife 

89D5 

DO 

D6 

BNE 

$89AD 

89D7 

A9 

AO 

LDA 

#$A0 

/(RVS-Leerzeichen) 
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89D9 

91 

23 


STA 

($23),Y 

;als letzten Eintrag spei. 

89DB 

C8 



INY 


/nächstes Zeichen 

89DC 

CO 

05 


CPY 

#$05 

;6 Zeichen 

89DE 

DO 

F9 


BNE 

$89D9 

;Schleife 

89E0 

58 



CLI 



89E1 

60 



RTS 



TRACESHOW: 






89E2 

A5 

7B 


EDA 

$7B 

/Programmzähler 

89E4 

C9 

03 


CMP 

#$03 

;Direkt-Modus 

89E6 

BO 

01 


BCS 

TRACESHl 

;nein, dann weiter 

89E8 

60 



RTS 



TRACESHl: 






89E9 

20 

3A 

8A 

DSR 

WEISSECK 

/weißes Eck am Bildschirm 

89EC 

78 



SEI 



89ED 

A9 

C5 


EDA 

#$C5 

/Zeiger $23,$24 auf $C531 

89EF 

85 

24 


STA 

$24 

89F1 

A9 

31 


EDA 

#$31 


89F3 

85 

23 


STA 

$23 


89F5 

A9 

04 


EDA 

#$04 

/Zeiger $20,$21 auf $0422 

89F7 

85 

21 


STA 

$21 

/(Video-Ram rechts oben) 

89F9 

A9 

22 


EDA 

#$22 


89FB 

85 

20 


STA 

$20 


89FD 

AO 

00 


EDY 

#$00 


89FF 

A2 

00 


EDX 

#$00 


8A01 

A9 

A3 


EDA 

#$A3 

/(RVS-#) 

8A03 

91 

20 


STA 

($20),Y 

/als 1.Zeichen schreiben 

8A05 

Bl 

23 


EDA 

($23),Y 

/l. Zeichen aus Tabelle 

8A07 

08 



INY 



8A08 

91 

20 


STA 

($20),Y 

/an nächste BiIdsch.-Pos. 

8A0A 

CO 

05 


CPY 

#$05 

/I Eintrag = 6 Zeichen 
/' innere' Schleife 

8A0C 

DO 

F7 


BNE 

$8A05 

8A0E 

20 

CE 

94 

DSR 

20PE40 

/Zeiger $20,$21 um 40 erh 

8A11 

18 



CEC 


8A12 

A5 

23 


EDA 

$23 

/Zeiger $23,$24 um 6 erh. 

8A14 

69 

06 


ADC 

#$06 

8A16 

85 

23 


STA 

$23 


8A18 

A5 

24 


EDA 

$24 


8A1A 

69 

00 


ADC 

#$00 


8A1C 

85 

24 


STA 

$24 


8A1E 

E8 



INX 


/nächsten Eintrag 

8A1F 

AO 

00 


EDY 

#$00 


8A21 

EO 

06 


CPX 

#$06 

/7 Einträge 
/ 'äußere' Schleife 

8A23 

DO 

DC 


BNE 

$8A01 

8A25 

58 



CEI 



8A26 

AD 

8D 

02 

EDA 

SHCOCTFE 

/Shift-Flag 

8A29 

C9 

02 


CMP 

#$02 

/Commodore-Taste ? 

8A2B 

DO 

OC 


BNE 

$8A39 

/nein, dann weiter 

8A2D 

A2 

00 


EDX 

#$00 


8A2F 

AO 

00 


EDY 

#$00 
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8A31 

E8 



INX 


(•innerer Wartezähler 

8A32 

DO 

FD 


BNE 

$8A31 

; innere Schleife 

8A34 

C8 



INY 


;aüßerer Wartezähler 

8A35 

CO 

82 


CPY 

#$82 

; bis 130 

8A37 

DO 

F8 


BNE 

$8A31 

;äußere Schleife 

8A39 

60 



RTS 



WEISSECK: 






8A3A 

78 



SEI 



8A3B 

20 

EC 

82 

OSR 

BASROMAU 


8A3E 

A9 

D8 


LDA 

#$D8 

,'Zeiger $20,$21 auf $D822 

8A40 

85 

21 


STA 

$21 

;(Farb-Ram oben rechts) 

8A42 

A9 

22 


LDA 

#$22 


8A44 

85 

20 


STA 

$2Q 


8A46 

AO 

00 


LDY 

#$Q0 


8A48 

A2 

00 


LDX 

#$00 


8A4A 

A9 

01 


LDA 

#$01 

; (we iß) 

8A4C 

91 

20 


STA 

($20),Y 

;in 1 BS-Stelle speichern 

8A4E 

C8 



INY 


(•nächstes Zeichen von 7 

8A4F 

CO 

06 


CPY 

#$06 

;7 Zeichen weiß 

8A51 

DO 

F7 


BNE 

$8A4A 

; 'innere' Schleife 

8A53 

20 

CE 

94 

OSR 

20PL40 

;$20,$21 um 40 erhöhen 

8A56 

E8 



INX 


(•nächste Zeile 

8A57 

AO 

00 


LDY 

#$00 


8A59 

EO 

06 


CPX 

#$06 

;7 Zeilen voll ? 

8A5B 

DO 

ED 


BNE 

$8A4A 

(•'äußere Schleife' 

8A5D 

58 



CLI 



8A5E 

4C 

F3 

82 

OMP 

BASROMEI 


SIRQPLAY: 




/ 

IRQ-Unterroutine; wird auf¬ 






/ 

gerufen,wenn PLAYFLAG = $0A 

8A61 

AD 

8A 

CB 

LDA 

MUSICZ4 


8A64 

C9 

00 


CMP 

#$00 


8A66 

FO 

IC 


BEQ 

$8A84 


8A68 

CE 

86 

CB 

DEC 

MUSICZ2 


8A6B 

AD 

86 

CB 

LDA 

MUSICZ2 


8A6E 

C9 

00 


CMP 

#$00 


8A70 

FO 

01 


BEQ 

$8A73 


8A72 

60 



RTS 



8A73 

CE 

8A 

CB 

DEC 

MUSICZ4 


8A76 

AD 

8A 

CB 

LDA 

MUSICZ4 


8A79 

C9 

00 


CMP 

#$00 


8A7B 

FO 

07 


BEQ 

$8A84 


8A7D 

AD 

88 

CB 

LDA 

MUSICZ3 


8A80 

8D 

86 

CB 

STA 

MUSICZ2 


8A83 

60 



RTS 



8A84 

AD 

9B 

CB 

LDA 

MUSICADR 

(•Adresse des MUSIC-String 

8A87 

85 

FC 


STA 

$FC 


8A89 

AD 

9C 

CB 

LDA 

MUSICADR 

+1 



146 


Kapitel 6 


8A8C 

85 

FD 


STA 

$FD 


8A8E 

AC 

9D 

OB 

LDY 

MUSIOZl 

;bis wieweit String bearb. 

8A91 

Bl 

FO 


LDA 

($FO),Y 

;akt. Zeichen aus String 

8A93 

C9 

85 


OMP 

#$85 

;(F1) 

8A95 

90 

18 


BOO 

$8AAF 

(•kleiner "Fl“,dann weiter 
;$8G = (F8) 

8A97 

C9 

8D 


OMP 

#$8D 

8A99 

BO 

14 


BOS 

$8AAF 

(■größer "F8",dann weiter 

8A9B 

38 



SEO 



8A9C 

Bl 

FO 


LDA 

($FO),Y 

(•Zeichenkode 

8A9E 

E9 

84 


SBO 

#$84 

(•minus $84 

8AA0 

8D 

86 

OB 

STA 

MUSI0Z2 

(•Nummer der Fkt.-Taste 

8AA3 

8D 

88 

OB 

STA 

MUSI0Z3 


8AA6 

AD 

96 

OB 

LDA 

MUSIODAU 


8AA9 

8D 

8A 

OB 

STA 

MUSI0Z4 


8AAC 

40 

D4 

8A 

OMP 

$8AD4 


8AAF 

09 

93 


OMP 

#$93 

;(CLR) 

8AB1 

DO 

03 


BNE 

$8AB6 

(•kein (OLR), dann weiter 

8AB3 

40 

FO 

8A 

OMP 

$8AF0 


8AB6 

80 

9F 

OB 

STY 

MUSI0Z5 

(•aktuelle Stimme 

8AB9 

20 

Al 

8B 

3SR 

NOTESUOH 

;High/Low in A/Y 

8ABC 

AO 

80 

OB 

LDY 

MREGADR 

8ABF 

84 

FE 


STY 

$FE 


8AC1 

AO 

8D 

OB 

LDY 

MREGADR+1 

8AC4 

84 

FF 


STY 

$FF 


8AC6 

AO 

01 


LDY 

#$01 


8AC8 

91 

FE 


STA 

($FE),Y 

;High-Byte setzen 

8ACA 

8A 



TXA 


8ACB 

88 



DEY 



8ACC 

91 

FE 


STA 

($FE),Y 

;Low-Byte setzen 

8ACE 

20 

lA 

80 

3SR 

STIMMEIN 

8AD1 

AO 

9F 

OB 

LDY 

MUSIGZ5 


8AD4 

00 

9E 

OB 

OPY 

MUSIGLEN 


8AD7 

BO 

05 


BOS 

PLAYEND 

(•fertig ? 

8AD9 

08 



INY 


8ADA 

80 

9D 

OB 

STY 

MUSIOZl 

(•Zaehler erhoeht 

8ADD 

60 



RTS 


;fuer diesmal fertig 

PLAYEND: 






BADE 

A9 

00 


LDA 

#$00 


8AE0 

8D 

9D 

OB 

STA 

MUSIOZl 


8AE3 

8D 

91 

OB 

STA 

PLAYFLAG 

; 'Stueck fertig’ 

8AE6 

60 



RTS 


8AE7 

40 

6E 

8B 

OMP 

$8B6E 


8AEA 

40 

7F 

8B 

OMP 

$8B7F 


8AED 

40 

90 

8B 

OMP 

$8B90 
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8AF0 

C8 



INY 


;naechstes Zeichen 

8AF1 

Bl 

FO 


LDA 

($FO),Y 

;aus Music-String 

8AF3 

A2 

00 


LDX 

#$00 

8AF5 

8E 

8A 

OB 

STX 

MUSI0Z4 


8AF8 

C9 

31 


OMP 

#$31 

;“1" (Stimme 1) 

8AFA 

FO 

EB 


BEQ 

$8AE7 

;ja, dann nach $8B6E 
; 2“ (Stimme 2) 

8AFC 

C9 

32 


OMP 

#$32 

8AFE 

FO 

EA 


BEQ 

$8AEA 

;ja, dann nach $8B7F 

8B00 

C9 

33 


OMP 

#$33 

;“3“ (Stimme 3) 

8B02 

FO 

E9 


BEQ 

$8AED 

;ja, dann nach $8B90 

8B04 

09 

47 


OMP 

#$47 

;“G“ (Stimme aus) 

8B06 

FO 

47 


BEQ 

$8B4F 

;ja, dann nach $8B4F 

8B08 

48 



PHA 


8B09 

80 

9F 

OB 

STY 

MUSI0Z5 


8B0C 

AO 

80 

OB 

LDY 

MREGADR 


8B0F 

84 

FE 


STY 

$FE 


8B11 

AO 

8D 

OB 

LDY 

MREGADR+1 


8B14 

84 

FF 


STY 

$FF 


8B16 

AO 

9F 

OB 

LDY 

MUSIGZ5 


8B19 

68 



PLA 



8B1A 

09 

54 


OMP 

#$54 

;“T“ (Sync-Bit invert.) 

8B1C 

DO 

13 


BNE 

$8B31 

;nein, dann weiter 

8B1E 

98 



TYA 



8B1F 

48 



PHA 



8B20 

AO 

A8 

OB 

LDY 

STIMMENR 

(•Stimme (0,1,2) 

8B23 

B9 

4A 

06 

LDA 

WAVETAB,Y 

;alte Weilenform 

8B26 

49 

02 


EOR 

#$02 

;Bit 1 invertieren 

8B28 

AO 

04 


LDY 

#$04 

;in Wellenform- 

8B2A 

91 

FE 


STA 

($FE),Y 

;Register schreiben 

8B2C 

68 



PLA 


8B2D 

A8 



TAY 



8B2E 

40 

D4 

8A 

OMP 

$8AD4 

;naechstes Zeichen 

8B31 

09 

43 


OMP 

#$43 

;"G“ (Wellenform = 0) 

8B33 

DO 

OA 


BNE 

$8B3F 

;nein, dann weiter 

8B35 

98 



TYA 



8B36 

48 



PHA 



8B37 

AO 

A8 

OB 

LDY 

STIMMENR 


8B3A 

A9 

00 


LDA 

#$00 

;Wellenform auf 0 

8B3C 

40 

28 

8B 

OMP 

$8B28 

/ S • 0 • 

8B3F 

09 

52 


OMP 

#$52 

;“R“ (Repeat/Wiederholung) 

8B41 

DO 

09 


BNE 

$8B4G 

;nein, naechstes Zeichen 

8B43 

AO 

00 


LDY 

#$00 


8B45 

80 

9D 

OB 

STY 

MUSIGZl 

;Zaehler f r abgearbei- 

8B48 

80 

8A 

OB 

STY 

MUSIGZ4 

;tete Zeichen 

8B4B 

60 



RTS 



8B4C 

40 

D4 

8A 

OMP 

$8AD4 

(•naechstes Zeichen bearb. 
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; Stimme aus ("G“) 


8B4F 

80 

9F 

CB 

STY 

MUSICZ5 

8852 

AC 

8C 

CB 

LOY 

MREGADR 

8855 

84 

FE 


STY 

$FE 

8857 

AC 

80 

CB 

LOY 

MREGADR+1 

885A 

84 

FF 


STY 

$FF 

885C 

AC 

A8 

CB 

LOY 

STIMMENR 

885F 

89 

4A 

C6 

LOA 

WAVETAB,Y 

8862 

29 

FE 


AND 

#$FE ;Key-Bit loeschen 

8864 

AO 

04 


LOY 

#$04 

8866 

91 

FE 


STA 

($FE),Y 

8868 

AC 

9F 

CB 

LOY 

MUSICZ5 

8868 

4C 

04 

8A 

DMP 

$8AD4 ;naechstes Zeichen 

; a uf 

Stimme 

1 

schaIten 

886E 

A9 

04 


LOA 

#$D4 

8870 

8D 

80 

CB 

STA 

MREGADR+1 

8873 

A9 

00 


LOA 

#$00 

8875 

8D 

8C 

CB 

STA 

MREGADR 

8878 

A9 

00 


LOA 

#$00 

887A 

8D 

A8 

CB 

STA 

STIMMENR 

8878 

FO 

CD 


BEQ 

$8B4C (-unbedingter Sprung 

; a uf 

Stimme 

2 

schaIten 

887F 

A9 

04 


LOA 

#$D4 

8881 

8D 

80 

CB 

STA 

MREGADR+1 

8884 

A9 

07 


LOA 

#$07 

8886 

8D 

8C 

CB 

STA 

MREGADR 

8889 

A9 

01 


LOA 

#$01 

8888 

80 

A8 

CB 

STA 

STIMMENR 

888E 

DO 

BC 


BNE 

$8B4C ;unbedingter Sprung 

; a uf 

Stimme 

3 

schaIten 

8890 

A9 

04 


LOA 

#$D4 

8892 

80 

80 

CB 

STA 

MREGADR+1 

8895 

A9 

OE 


LOA 

#$0E 

8897 

80 

8C 

CB 

STA 

MREGADR 

889A 

A9 

02 


LOA 

#$02 

8890 

80 

A8 

CB 

STA 

STIMMENR 

889F 

00 

AB 


BNE 

$8B4C (-unbedingter Sprung 

NOTESUCH: 





8BA1 

AO 

00 


LOY 

#$00 

88A3 

09 

DE 

88 

CMP 

NOTENTAB(Y (-in Tabelle ? 

88A6 

FO 

09 


BEQ 

$8881 dann zu $8881 

8BA8 

C8 



INY 

(-naechstes Zeichen in Tab. 

88A9 

CO 

14 


CPY 

#$14 (-Tabelle zu Ende ? 

88A8 

00 

F6 


BNE 

$8BA3 (-nein( dann neachst. 

88AD 

A9 

00 


LOA 

#$00 (-sonst Akku und X-Reg. 

88AF 

AA 



TAX 

(-annullieren 

8880 

60 



RTS 
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8BB1 

B9 

06 

80 

EDA 

FRQTABH, Y 

;Frequenzwerte f r 

8BB4 

80 

9A 

05 

STA 

MFREQ+1 

,-niedrigste Oktave aus 

8BB7 

B9 

F2 

8B 

LOA 

FRQTABE,Y 

(•Tabelle holen 

8BBA 

80 

99 

05 

STA 

MFREQ 

;und nach MFREQ,MFREQ+1 

8BBD 

AO 

9F 

OB 

LDY 

MUSI0Z5 

,-Zeiger in Music-String 

8BC0 

08 



INY 


;erh hen 

8BC1 

80 

9F 

OB 

STY 

MUSI0Z5 


8BC4 

Bl 

FO 


LOA 

($FO),Y 

;Oktavzeichen (0-7) 

8BC6 

E9 

30 


SBO 

#$30 

;$30 vom ASO-Oode subtr. 

8BC8 

AA 



TAX 


;gibt Wert von Ziffer 

8BC9 

EO 

00 


OPX 

#$00 

;Null ? 

8BCB 

FO 

OA 


BEQ 

$8BD7 

;dann fertig 

8BCD 

OE 

99 

05 

ASL 

MFREQ 

; Frequenz 

8BD0 

2E 

9A 

05 

ROL 

MFREQ+1 

(•verdoppeln 

8BD3 

OA 



DEX 


(•sooft, wie Oktavnummer 

8BD4 

40 

09 

8B 

OMP 

$8B09 


8BD7 

AO 

9A 

05 

EDA 

MFREQ+1 ; 

A/X mit Frequenz laden 

8BDA 

AE 

99 

05 

EDX 

MFREQ 


8BDD 

60 



RTS 



NOTENTAB: 






8BDE 

43 

03 

44 

04 45 

46 06 47 

cOdDefFg 

8BE6 

07 

41 

01 

42 5A 


GaAbz 

8BEB 

AO 

Bl 

BB 

A5 BO 

BF BO 

cdefgab (mit 0= Taste 

FRQTABL: 






8BF2 

12 

23 

34 

46 5A 

6E 84 9B 

(•Frequenzwerte f r Taste 

8BFA 

B3 

00 

E9 

06 00 

23 46 5A 

; Eow-Bytes 

8C02 

84 

B3 

E9 

06 



FRQTABH: 






8C06 

01 

01 

01 

01 01 

01 01 01 

(•Frequenzwerte f r Taste 

8C0E 

01 

01 

01 

02 00 

01 01 01 

;High-Bytes 

8C16 

01 

01 

01 

02 



STIMMEIN: 






8C1A 

AO 

A8 

OB 

EDY 

STIMMENR 


8C1D 

B9 

A4 

OB 

EDA 

ADTAB,Y 

;Attack/Decay-Wert 

8C20 

AO 

05 


EDY 

#$05 


8C22 

91 

FE 


STA 

($FE),Y 

;setzen 

8C24 

AO 

A8 

OB 

EDY 

STIMMENR 


8C27 

B9 

AO 

OB 

EDA 

SRTAB,Y 

;Sustain/Release-Wert 

8C2A 

AO 

06 


EDY 

#$06 


8C2C 

91 

FE 


STA 

($FE),Y 

;setzen 

8C2E 

AO 

A8 

OB 

EDY 

STIMMENR 


8C31 

B9 

4A 

06 

EDA 

WAVETAB,Y 

;Wellenform 

8C34 

29 

FE 


AND 

#$FE 

(•Key-Bit loeschen 

8036 

AO 

04 


EDY 

#$04 


8038 

91 

FE 


STA 

($FE),Y 


803A 

AO 

04 


EDY 

#$04 
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8C3C 

09 

01 


ORA 

#$01 ;Key-Bit setzen 

8C3E 

91 

FE 


STA 

($FE),Y 

8C40 

60 



RTS 


MOBEXS: 





;setzt Vergrößerung X 

8C41 

AE 

BO 

05 

LDX 

MOBNR 

8C44 

AD 

ID 

DO 

LDA 

VIOMEX 

8047 

ID 

78 

97 

ORA 

MBITTABS,X 

8C4A 

8D 

ID 

DO 

STA 

VIOMEX 

8C4D 

60 



RTS 


MOB EYS; 





,-setzt Vergrößerung Y 

8C4E 

AE 

BO 

05 

LDX 

MOBNR 

8051 

AD 

17 

DO 

LDA 

VIOMEY 

8054 

ID 

78 

97 

ORA 

MBITTABS,X 

8057 

8D 

17 

DO 

STA 

VIOMEY 

805A 

60 



RTS 


MOBEXL 





; löscht Vergrößerung X 

805B 

AE 

BO 

05 

LDX 

MOBNR 

805E 

AD 

ID 

DO 

LDA 

VIOMEX 

8061 

3D 

80 

97 

AND 

MBITTABL,X 

8064 

8D 

ID 

DO 

STA 

VIOMEX 

8067 

60 



RTS 


MOBEYL 





; löscht Vergrößerung Y 

8068 

AE 

BO 

05 

LDX 

MOBNR 

806B 

AD 

17 

DO 

LDA 

VIOMEY 

806E 

3D 

80 

97 

AND 

MBITTABL,X 

8071 

8D 

17 

DO 

STA 

VIOMEY 

8074 

60 



RTS 


GETBYTO: 




/prüft Komma und holt Byte 

8075 

20 

FD 

AE 

OSR 

OHKOOM 

8078 

40 

9E 

B7 

OMP 

$B79E /GETBYT 

SGETSTRl: 




/'Verzierter' Aufruf von SGETSTR 

8G7B 

AD 

96 

05 

LDA 

PORTSPEI 

8G7E 

48 



PHA 


8G7F 

20 

B7 

86 

OSR 

SGETSTR 

8082 

8D 

7D 

05 

STA 

ZWSPEIl 

8085 

68 



PLA 


8086 

8D 

96 

05 

STA 

PORTSPEI 

8089 

AD 

7D 

05 

LDA 

ZWSPEIl 

8080 

60 



RTS 


SGETARI: 




/holt arithmetisches Element 

808D 

A9 

00 


LDA 

#$00 

808F 

85 

OD 


STA 

$0D /Typflag auf numerisch 

8091 

20 

73 

00 

3SR 

GHRGET /Zeichen holen 

8094 

BO 

03 


BOS 

$8099 /keine Ziffer, dann weiter 
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8C96 

4C 

79 

80 

OMP 

SASCFLP 

8C99 

C9 

24 


CMP 

#$24 

8C9B 

FO 

3A 


BEQ 

GETHEX 

8C90 

C9 

25 


CMP 

#$25 

8C9F 

FO 

22 


BEQ 

GETBIN 

8CA1 

C9 

64 


CMP 

#$64 

8CA3 

FO 

03 


BEQ 

$8CA8 

8CA5 

4C 

7C 

80 

OMP 

SGETARI 


8CA8 

4C 

DC 

80 

OMP 

$8DDC 

CHHEXCHR: 





8CAB 

C9 

30 


CMP 

#$30 

8 CAD 

90 

OC 


BCC 

$8CBB 

8CAF 

C9 

47 


CMP 

#$47 

8CB1 

BO 

08 


BCS 

$8CBB 

8CB3 

C9 

3A 


CMP 

#$3A 

8CB5 

90 

OB 


BCC 

$8CC2 

8CB7 

C9 

41 


CMP 

#$41 

8CB9 

BO 

07 


BCS 

$8CC2 

8CBB 

68 



PLA 


8CBC 

68 



PLA 


8CBD 

A9 

05 


LDA 

#$05 

8CBF 

4C 

8C 

88 

OMP 

SERROUT 

8CC2 

60 



RTS 


GETBIN 






8CC3 

20 

73 

00 

OSR 

CHRGET 

8CC6 

20 

09 

9A 

OSR 

BINCON 

8CC9 

A4 

A8 


LDY 

$A8 

8CCB 

A2 

00 


LDX 

#$00 

SXYFLP 






8CCD 

84 

63 


STY 

$63 

8CCF 

86 

62 


STX 

$62 

8CD1 

A2 

90 


LDX 

#$90 

8CD3 

38 



SEC 


8CD4 

4C 

49 

BC 

OMP 

XFLP 

GETHEX 

; 





8CD7 

20 

73 

00 

OSR 

CHRGET 

8CDA 

20 

EO 

8C 

OSR 

HEXCON 

8CDD 

4C 

lE 

8D 

OMP 

$8D1E 

HEXCON 

; 





8CE0 

AO 

00 


LDY 

#$00 

8CE2 

Bl 

7A 


LDA 

($7A)(Y 


;Text nach FAC wandeln 

(Hex-Zahl folgt) 

;Hex-Zah1 

;■%" (Binärzahl folgt) 
;Binärzahl, dann zu $8CC3 
;(Simon's Funktion folgt) 

;ja, dann zu 8DDC 
;zur normalen Basic- 
;Routine GETARI 

;zur Ausw. v. Simon's Fkt. 

(•prüfe ob Zeichen in 
;"OlZaABeysgABCDEF" enth. 

;” 0 ‘ 

(kleiner "0"( dann Fehler 

;‘G‘ 

(•größer ‘G"( dann Fehler 

/ • 

;kle iner=‘9“( dann weiter 

;‘A- 

;größer= "A“( dann weiter 
(•Rücksprungadresse vom 
(•Stack entfernen 
;Nr. für ‘not hex char" 
(•Fehlermeldung ausgeben 


(•holt Binärwert 

(•überliest Code 

(•holt Binärzahl nach $A8 

;Low-Byte 

;High-Byte 


;Low-Byte 
(•High-Byte 
;Exponent 

(•wandelt nach Fließkomma 

(•holt Hexadezimalwert 
(•überliest Code 
(•holt Hex-Zahl 
(•Fortsetzung bei $8D1E 


;akt. Basic-Zeichen 
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8CE4 

20 

AB 

80 

DSR 

OHHEXOHR 


8CE7 

80 

IF 

05 

STA 

POS 

(•Zwischenspeichern 

8CEA 

20 

73 

00 

OSR 

OHRGET 

(•nächstes Zeichen lesen 

8CED 

Bl 

7A 


LOA 

($7A),Y 

;akt. Zeichen holen 

8CEF 

20 

AB 

o 

00 

OSR 

OHHEXOHR 


8CF2 

A8 



TAY 



8CF3 

AD 

IF 

05 

LOA 

POS 


8CF6 

20 

28 

80 

3SR 

HEX2W 

(•Wert von 2-st Hexz. n. A 

8CF9 

85 

A9 


STA 

$A9 

;in $A9 speichern 

8CFB 

20 

73 

00 

OSR 

OHRGET 

;ab hier anaolg für die 

8CFE 

AO 

00 


LOY 

#$00 

(•hinteren beiden Zeichen 

8D00 

Bl 

7A 


LOA 

($7A),Y 


8D02 

20 

AB 

80 

OSR 

OHHEXOHR 


8D05 

80 

IF 

05 

STA 

POS 


8D08 

20 

73 

00 

DSR 

OHRGET 


8D0B 

Bl 

7A 


LOA 

($7A),Y 


8D0D 

20 

AB 

80 

3SR 

OHHEXOHR 


8D10 

A8 



TAY 



8D11 

AD 

IF 

05 

LOA 

POS 


8D14 

20 

28 

80 

OSR 

HEX2W 


8D17 

85 

63 


STA 

$63 

; Low-Byte 

8D19 

A5 

A9 


LOA 

$A9 

;High-Byte 

8D1B 

85 

62 


STA 

$62 

8D1D 

60 



RTS 



;Fortsetzung 

von 

GETHEX 


8D1E 

20 

73 

00 

3SR 

OHRGET 


8D21 

A2 

90 


LDX 

#$90 


8D23 

38 



SEO 



8D24 

20 

49 

BO 

DSR 

XFLP 

(•wandelt nach Fließkomma 

8D27 

60 



RTS 



HEX2W: 




;holt Wert 

V. 2-stell. Hexzahl in Akku 

8D28 

48 



PHA 


(•l.Ziffer merken 

8D29 

98 



TYA 


;2.Ziffer 

8D2A 

20 

30 

80 

DSR 

HEXW 

;umwände 1n 

8D2D 

80 

54 

OB 

STA 

ZWISP2 

(•Ergebnis merken 

8D30 

68 



PLA 


(•l.Ziffer 

8D31 

20 

30 

80 

DSR 

HEXW 

;umwa nde ln 

8D34 

OA 



ASL 

A 

; ma1 16 

8D35 

OA 



ASL 

A 


8D36 

OA 



ASL 

A 


8D37 

OA 



ASL 

A 


8038 

00 

54 

OB 

ORA 

ZWISP2 

(•plus Wert V. 2.Ziffer 

8D3B 

60 



RTS 


HEXW: 







8D3C 

38 



SEO 



8030 

E9 

30 


SBO 

#$30 

;Gode minus $30 

8D3F 

09 

OA 


OMP 

#$0A 


8041 

90 

02 


BOO 

$8045 

(•größer als 10( 
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8D43 

E9 

07 


SBO 

#$07 

;dann noch 7 abziehen 

8D45 

60 



RTS 



FNEXOR; 







8D46 

20 

73 

00 

OSR 

OHRGET 

;Oode ueberlesen 

8D49 

20 

FA 

AE 

OSR 

OHKKLA 

(•Klammer auf ? 

8D4C 

20 

15 

94 

OSR 

SGETADR2 

;holt Adresswert 

8D4F 

84 

AA 


STY 

$AA 

(■Zwischenspeichern 

8D51 

85 

AB 


STA 

$AB 

(• in $AA($AB 

8D53 

20 

FD 

AE 

OSR 

GHKGOM 

(•Komma ? 

8D56 

20 

15 

94 

OSR 

SGETADR2 

(•Adresswert holen 

8D59 

20 

F7 

AE 

OSR 

GHKKLZ 

(•Klammer zu ? 

8D5C 

A5 

65 


LDA 

$65 

; Low-Byte 

8D5E 

45 

AA 


EOR 

$AA 

;verknuepfen 

8D60 

A8 



TAY 


8D61 

A5 

64 


LDA 

$64 

(• H i gh-Byte 

8D63 

45 

AB 


EOR 

$AB 


8D65 

AA 



TAX 



8D66 

4C 

OD 

o 

00 

OMP 

SXYFLP 

(•zurueck nach Fliesskomma 

FNDUP: 







8D69 

20 

73 

00 

OSR 

OHRGET 

(•Oode ueberlesen 

8D6C 

20 

FA 

AE 

3SR 

OHKKLA 

(•Klammer auf ? 

8D6F 

20 

7B 

80 

OSR 

SGETSTRl 

(■String holen 

8D72 

A4 

69 


LDY 

$69 

;Stringlaenge nach POS 

8D74 

80 

IF 

05 

STY 

POS 

8D77 

8D 

AO 

OB 

STA 

STRl+1 ; 

Stringadresse speichern 

8D7A 

8E 

AB 

OB 

STX 

STRl 

8D7D 

20 

FD 

AE 

OSR 

OHKKOM 

(•Komma ? 

8D80 

20 

15 

94 

OSR 

SGETADR2 

(•Wert holen 

8D83 

20 

F7 

AE 

OSR 

OHKKLZ 

(•Klammer zu ? 

8D86 

A6 

65 


LDX 

$65 

;Low-Byte 

8D88 

8E 

AE 

OB 

STX 

DWERT 

(•als Wert speichern 

8D8B 

AO 

00 


LDY 

#$00 

8D8D 

80 

20 

05 

STY 

POSl 

;P0S1 fuer Gesamtlaenge 

8D90 

AO 

00 


LDY 

#$00 

8D92 

EE 

20 

05 

INO 

POSl 


8D95 

08 



INY 



8D96 

00 

IF 

05 

OPY 

POS 


8D99 

DO 

F7 


BNE 

$8D92 

;innere Schleife 

8D9B 

OA 



DEX 


(•Wiederholungszaehler 

8D9C 

DO 

F2 


BNE 

$8D90 

(•aeussere Schleife 

8D9E 

AD 

20 

05 

LDA 

POSl 

(■neue Gesamtlaenge 

8DA1 

20 

7D 

B4 

OSR 

NEUSTR 

(•String einrichten 

8DA4 

AD 

AO 

OB 

LDA 

STRl+1 

8DA7 

85 

21 


STA 

$21 


8DA9 

AD 

AB 

OB 

LDA 

STRl 


8DAC 

85 

20 


STA 

$20 


8DAE 

AE 

AE 

OB 

LDX 

DWERT 

;X als Wiederh.-Zaehler 

8DB1 

AO 

00 


LDY 

#$00 


8DB3 

80 

18 

05 

STY 

STRZl 

(•Zaehler im neuen String 
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8DB6 

Bl 

20 


LDA 

($20),Y 

;Zeichen aus altem String 

8 DBS 

8C 

19 

C5 

STY 

STRZ2 

;Zaehler im alten String 

8DBB 

AC 

18 

C5 

LDY 

STRZl 

8DBE 

91 

62 


STA 

($62),Y 

;Zeichen des neuen Strings 

8DC0 

C8 



INY 


;Zaehler fuer neuen String 

8DC1 

8C 

18 

C5 

STY 

STRZl 

;erhGehen 

8DC4 

AC 

19 

C5 

LDY 

STRZ2 

;alter String 

8DC7 

C8 



INY 


8DC8 

CC 

IF 

C5 

CPY 

POS 

;Ende erreicht ? 

8DCB 

DO 

E9 


BNE 

$8DB6 

,'nein,dann naechst. Zeich. 

8DCD 

AO 

00 


LDY 

#$00 

;Zaehler im alten String 

8DCF 

8C 

20 

C5 

STY 

POSl 

;(unsinnig) 

8DD2 

CA 



DEX 


;Wiederholungszaehler 

8DD3 

DO 

El 


BNE 

$8DB6 

;aeussere Schleife 

8DD5 

A9 

FF 


LDA 

#$FF 


8DD7 

85 

OD 


STA 

$0D 

;Stringflag setzen 

8DD9 

4C 

CA 

B4 

OMP 

PUSHSTR 

;String auf Stapel legen 

; arithmetischen 

Ausdruck hinter 

$64-Code auswerten 

8DDC 

20 

73 

00 

OSR 

CHRGET 

;Code ueberlesen 

8DDF 

AO 

00 


LDY 

#$00 


8DE1 

Bl 

7A 


LDA 

($7A),Y 

;naechsten Code 

8DE3 

C9 

55 


CMP 

#$55 

;Code fuer DUP 

8DE5 

DO 

03 


BNE 

$8DEA 

;nein, dann weiter 

8DE7 

4C 

69 

8D 

OMP 

FNDUP 


8DEA 

C9 

5A 


CMP 

#$5A 

;Code fuer EXOR 

8DEC 

DO 

03 


BNE 

$8DF1 

;nein, dann weiter 

8DEE 

4C 

46 

8D 

OMP 

FNEXOR 


8DF1 

C9 

51 


CMP 

#$51 

;Code fuer OOY 

8DF3 

DO 

03 


BNE 

$8DF8 

;nein, dann weiter 

8DF5 

4C 

D4 

88 

OMP 

FNOOY 


8DF8 

C9 

OE 


CMP 

#$0E 

;Code fuer FRAC 

8DFA 

DO 

4C 


BNE 

$8E48 

;nein, dann weiter 

FNFRAC 

. 






8DFC 

20 

73 

00 

DSR 

CHRGET 

;Code ueberlesen 

8DFF 

A5 

7A 


LDA 

$7A 

;Programmzaehler sichern 

8E01 

48 



PHA 


8E02 

A5 

7B 


LDA 

$7B 


8E04 

48 



PHA 



8E05 

A9 

00 


LDA 

#$00 


8E07 

85 

62 


STA 

$62 

;nul 1 

8E09 

85 

63 


STA 

$63 


8E0B 

A2 

90 


LDX 

#$90 


8E0D 

38 



SEC 



8E0E 

20 

49 

BC 

OSR 

XFLP 

;nach Fliesskomma wandeln 

8E11 

20 

OC 

BC 

DSR 

FACARG 

;FAC nach ARG uebertragen 

8E14 

20 

FA 

AE 

DSR 

CHKKLA 

;Klammer auf ? 
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8E17 

20 

9E 

AD 

3SR 

FRMEVE 

;holt Ausdruck 

8E1A 

A5 

66 


EDA 

$66 

(•Vorzeichen von FAO 

8E1C 

85 

AA 


STA 

$AA 

;in $AA speichern 

8E1E 

30 

03 


BMI 

$8E23 

(■negativ ? 

8E20 

4C 

26 

8E 

3MP 

$8E26 


8E23 

20 

B4 

BF 

3SR 

$BFB4 

(•Vorzeichen wechseln 

8E26 

20 

F7 

AE 

3SR 

OHKKEZ 

(•Klammer zu ? 

8E29 

20 

IB 

BO 

OSR 

FAORUND 

;FAO runden 

8E2C 

20 

00 

BO 

3SR 

FAOARG 

;FAO nach ARG uebertragen 

8E2F 

20 

00 

BO 

3SR 

$B000 

;Basic-Funktion INT 

8E32 

68 



PLA 


(•alten Programmzaehler 

8E33 

68 



PLA 


(•vom Stapel entfernen 

8E34 

20 

53 

B8 

OSR 

FAMINUS 

;FAG = ARG - FAO 

8E37 

A9 

00 


EDA 

#$00 


8E39 

85 

OD 


STA 

$0D 

(•Stringflag loeschen 

8E3B 

A5 

AA 


EDA 

$AA 

(•altes Vorzeichen 

8E3D 

30 

03 


BMI 

$8E42 

(•negativ ? 

8E3F 

4C 

45 

8E 

OMP 

$8E45 


8E42 

20 

B4 

BF 

3SR 

$BFB4 

(Vorzeichen wechseln 

8E45 

40 

IB 

BO 

OMP 

FAORUND 

;FAG runden 

;Fortsetzung 

'arithm. 

Ausdruck hinter $64-0ode' 

8E48 

09 

10 


OMP 

#$10 

(•Gode fuer PEAGE 

8E4A 

FO 

03 


BEQ 

FNPEAOE 

■,]a, dann zu FNPEAOE 

8E4C 

40 

AO 

8E 

OMP 

$8EA0 

(•sonst weiter 

FNPLACE: 






8E4F 

20 

73 

00 

OSR 

OHRGET 

;Gode ueberlesen 

8E52 

20 

FA 

AE 

OSR 

GHKKEA 

;( 

8E55 

20 

7B 

80 

OSR 

SGETSTRl 

(■String holen 

8E58 

85 

A8 


STA 

$A8 

;Stringadresse 

8E5A 

86 

A7 


STX 

$A7 

(•nach $A7,$A8 

8E5C 

A5 

69 


EDA 

$69 

;Stringlaenge 

8E5E 

8D 

B7 

OB 

STA 

STREENl 

; speichern 

8E61 

20 

FD 

AE 

OSR 

GHKGOM 

(•Komma ? 

8E64 

20 

7B 

80 

OSR 

SGETSTRl 


8E67 

85 

AA 


STA 

$AA 

;Stringadresse 

8E69 

86 

A9 


STX 

$A9 

(•nach $A9,$AA 

8E6B 

A5 

69 


EDA 

$69 

;Stringlaenge 

8E6D 

80 

B4 

OB 

STA 

STREEN2 

;speichern 

8E70 

20 

F7 

AE 

OSR 

OHKKEZ 

;) 

8E73 

AO 

00 


EDY 

#$00 


8E75 

80 

Bl 

OB 

STY 

PEPOS 

;Ergebnis 

8E78 

Bl 

A7 


EDA 

($A7),Y 

(■Zeichen aus 1. String 

8E7A 

Dl 

A9 


OMP 

($A9),Y 

; = Zeichen aus 2. String 

8E7C 

DO 

16 


BNE 

$8E94 

(•wenn nein, dann weiter 

8E7E 

08 



INY 


(•naechstes Zeichen 

8E7F 

00 

B7 

OB 

OPY 

STREENl 

(•Stringende erreicht ? 

8E82 

DO 

F4 


BNE 

$8E78 

(•nein,dann naechst. Zeich 

8E84 

EE 

Bl 

OB 

INO 

PEPOS 

/Position erhoehen 
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8E87 

AD 

Bl 

CB 

EDA 

PEPOS 

; Ergebnis 

8E8A 

AB 



TAY 


8E8B 

A9 

00 


EDA 

#$00 


8E8D 

85 

OD 


STA 

$0D 

;Stringflag loeschen 

8E8F 

A2 

00 


EDX 

#$00 

8E91 

4C 

CD 

00 

o 

OMP 

SXYFEP 

;nach Fliesskomma 

8E94 

AO 

00 


EDY 

#$00 

;Zaehler ruecksetzen 

8E96 

E6 

A9 


INC 

$A9 

;$A9,$AA erhoehen 

8E98 

DO 

02 


BNE 

$8E9C 


8E9A 

E6 

AA 


INC 

$AA 


8E9C 

EE 

Bl 

CB 

INC 

PEPOS 

(•Position erhoehen 

8E9F 

AD 

Bl 

CB 

EDA 

PEPOS 


8EA2 

CD 

B4 

CB 

CMP 

STREEN2 

;Stringlaenge erreicht ? 

;Schleife 

8EA5 

DO 

Dl 


BNE 

$8E78 

8EA7 

A9 

00 


EDA 

#$00 

,-String nicht gefunden 

8EA9 

4C 

8A 

LU 

00 

OMP 

$8E8A 

/ S • 0 • 

;Fortsetzung 

'arithm. 

Ausdruck 

hinter $64-Code' 

8EAC 

C9 

5B 


CMP 

#$5B 

;Code fuer INSERT 

8EAE 

FO 

03 


BEQ 

FNINSERT 

;wenn ja, dann dahin 

8EB0 

4C 

8A 

8F 

OMP 

$8F8A 

(•sonst weiter 

FNINSERT: 






8EB3 

20 

73 

00 

OSR 

CHRGET 

;Code ueberlesen 

8EB6 

20 

FA 

AE 

OSR 

CHKKEA 

;( 

8EB9 

20 

7B 

8C 

OSR 

SGETSTRl 

(•holt einzusetzenden Str. 

8EBC 

85 

AB 


STA 

$A8 

(•Stringadresse 

BEBE 

86 

A7 


STX 

$A7 

(•nach $A7,$A8 

8EC0 

A5 

69 


EDA 

$69 

;Stringlaenge 

8EC2 

8D 

B7 

CB 

STA 

STREENl 

8EC5 

20 

FD 

AE 

OSR 

CHKCOM 

; Komma ? 

8 ECB 

20 

7B 

8C 

OSR 

SGETSTRl 

(•holt zweiten String 

8ECB 

85 

AA 


STA 

$AA 

;Stringadresse 

8ECÜ 

86 

A9 


STX 

$A9 

(•nach $A9,$AA 

8ECF 

A5 

69 


EDA 

$69 

;Stringlaenge 

8ED1 

8D 

B4 

CB 

STA 

STREEN2 

8ED4 

20 

75 

8C 

OSR 

GETBYTC 

(•holt Byte-Wert 

8ED7 

8E 

IF 

C5 

STX 

POS 

;in POS speichern 

BEDA 

20 

F7 

AE 

OSR 

CHKKEZ 

;) 

8EDD 

18 



CEC 



BEDE 

AD 

B4 

CB 

EDA 

STREEN2 

(•Eaenge 2 

8EE1 

6D 

B7 

CB 

ADC 

STREENl 

;+Eaenge 1 

8EE4 

90 

OA 


BCC 

$8EF0 

(•kleiner 256, dann weiter 

8EE6 

A9 

03 


EDA 

#$03 

;Nr. f. ’string to large' 

8EE8 

4C 

8C 

88 

OMP 

SERROUT 

(•Fehlermeldung ausgeben 

8EEB 

A9 

02 


EDA 

#$02 

;Nr. f. ’insert too large 

8EED 

4C 

8C 

88 

OMP 

SERROUT 

(•Fehlermeldung ausgeben 
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8EF0 

20 

7D 

B4 

OSR 

NEUSTR 

/neuen String einrichten 

8EF3 

AO 

00 


LDY 

#$00 

8EF5 

CG 

IF 

G5 

GPY 

POS 

/Position erreicht ? 

8EF8 

FO 

OG 


BEQ 

$8F06 

/ja, dann hier fertig 

8EFA 

Bl 

A9 


EDA 

($A9),Y 

/Zeichen aus altem String 

8EFC 

91 

62 


STA 

($62),Y 

/in neuen String eintragen 

8EFE 

C8 



INY 


/naechstes Zeichen 

8EFF 

CG 

B4 

GB 

GPY 

STRLEN2 

/String zu Ende ? 

8F02 

FO 

E7 


BEQ 

$8EEB 

/ja, dann Fehler 

8F04 

DO 

EF 


BNE 

$8EF5 

/sonst weiter 

8F06 

8G 

20 

G5 

STY 

POSl 

/Position nach POSl 

8F09 

8G 

AE 

GB 

STY 

DWERT 

/und DWERT 

8F0C 

AO 

00 


LDY 

#$00 


8F0E 

8G 

AB 

GB 

STY 

STRl 

STRl als Zaeh 1er im l.Str. 

8F11 

Bl 

A7 


LDA 

($A7),Y 

/Zeichen aus 1.String 

8F13 

EE 

AB 

GB 

ING 

STRl 

/Zaehler erhoehen 

8F16 

AG 

20 

G5 

LDY 

POSl 

/Position holen 

8F19 

91 

62 


STA 

($62),Y 

/Zeichen speichern 

8F1B 

EE 

20 

G5 

ING 

POSl 

/Position erhoehen 

8F1E 

AG 

AB 

GB 

LDY 

STRl 

/Ende von 1.String 

8F21 

GG 

B7 

GB 

GPY 

STRLENl 

/erreicht ? 

8F24 

DO 

EB 


BNE 

$8F11 

/nein, dann Schleife 

8F26 

AG 

AE 

GB 

LDY 

DWERT 

/alte Position 

8F29 

Bl 

A9 


LDA 

($A9) ,Y 

/Zeichen aus 2.String 

8F2B 

EE 

AE 

GB 

ING 

DWERT 

/Position erhoehen 

8F2E 

AG 

20 

G5 

LDY 

POSl 

/neue Position holen 

8F31 

91 

62 


STA 

($62),Y 

/Zeichen speichern 

8F33 

EE 

20 

G5 

ING 

POSl 

/Position erhoehen 

8F36 

AG 

AE 

GB 

LDY 

DWERT 

/Ende von 2.String 

8F39 

GG 

B4 

GB 

GPY 

STRLEN2 

/erreicht ? 

8F3C 

DO 

EB 


BNE 

$8F29 

/nein, dann Schleife 

8F3E 

A9 

FF 


LDA 

#$FF 

/Stringflag 

8F40 

85 

OD 


STA 

$0D 

/ setzen 

8F42 

4G 

GA 

B4 

3MP 

PUSHSTR 

/String auf Stapel legen 

IDIV: 






/Ganzzahlige Division 

8F45 

A9 

00 


LDA 

#$00 

8F47 

8D 

G2 

GB 

STA 

IDIVREST 

/Rest annullieren 

8F4A 

8D 

G3 

GB 

STA 

IDIVREST+1 

8F4D 

AD 

BB 

GB 

LDA 

IDIVSOR 

/Divisor = 0 ? 

8F50 

OD 

BG 

GB 

ORA 

IDIVSOR+1 

8F53 

DO 

07 


BNE 

$8F5G 

/nein, dann weiter 

8F55 

68 



PLA 


/Stack bereinigen 

8F56 

68 



PLA 


8F57 

A2 

14 


LDX 

#$14 

/Nr. f. 'division by zero' 

8F59 

6G 

00 

03 

DMP 

($0300) 

/ Fehlermeldung ausgeben 

8F5C 

A2 

10 


LDX 

#$10 

/Bitzaehler auf 16 

8F5E 

2E 

GO 

GB 

ROL 

IDIVDEND 

/Garry-Flag (von SBG bei 

8F61 

2E 

Gl 

GB 

ROL 

IDIVDEND+1 ;$8F57) in Ergebnis und 
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8F64 

2E 

02 

CB 

ROL 

IDIVREST 

;naechstes Bit des Divi- 

8F67 

2E 

03 

CB 

ROL 

IDIVREST+1 

;denden in Rest schieben 

8F6A 

38 



SEC 



8F6B 

AD 

C2 

CB 

EDA 

IDIVREST ; 

Divisor von Rest abziehen 

8F6E 

ED 

BB 

CB 

SBC 

IDIVSOR 


8F71 

A8 



TAY 



8F72 

AD 

C3 

CB 

EDA 

IDIVREST+1 


8F75 

ED 

BO 

CB 

SBC 

IDIVSOR+1 


8F78 

90 

06 


BCC 

$8F80 

wenn zu gross, dann nicht 

8F7A 

8C 

C2 

CB 

STY 

IDIVREST ; 

speichern 

8F7D 

8D 

03 

CB 

STA 

IDIVREST+1 


8F80 

CA 



DEX 

/ 

Bitzaehler vermindern 

8F81 

DO 

DB 


BNE 

$8F5E 

Schleife 

8F83 

2E 

00 

CB 

ROE 

IDIVDEND 

,"Carry in Ergebnis 

8F86 

2E 

CI 

CB 

ROE 

IDIVDEND+1 

;rotieren 

8F89 

60 



RTS 



;Fortsetzung 

'arithm. 

Ausdruck hinter $64-Code' 

8F8A 

C9 

53 


CMP 

#$53 

Code fuer DIV 

8F8C 

DO 

2A 


BNE 

$8FB8 ; 

nein, dann weiter 

FNDIV: 







8F8E 

20 

73 

00 

OSR 

CHRGET 

;Code ueberlesen 

8F91 

20 

FA 

AE 

3SR 

CHKKEA 

;( 

8F94 

20 

15 

94 

OSR 

SGETADR2 

;holt Adresswert 

8F97 

8D 

01 

CB 

STA 

IDIVDEND+1 

. ;als Dividend speichern 

8F9A 

8C 

00 

CB 

STY 

IDIVDEND 


8F9D 

20 

FD 

AE 

OSR 

CHKCOM 

;Komma ? 

8FA0 

20 

15 

94 

OSR 

SGETADR2 

;holt Wert 

8FA3 

8D 

BO 

CB 

STA 

IDIVSOR+1 

;als Divisor speichern 

8FA6 

8C 

BB 

CB 

STY 

IDIVSOR 


8FA9 

20 

F7 

AE 

OSR 

CHKKEZ 

;) 

8FAC 

20 

45 

8F 

OSR 

IDIV 

;Division ausfuehren 

8FAF 

AC 

00 

CB 

EDY 

IDIVDEND 

; Ergebnis 

8FB2 

AE 

01 

CB 

EDX 

IDIVDEND+1 

8FB5 

4C 

CD 

8C 

OMP 

SXYFEP 

;nach Fliesskomma wandeln 

; Fortsetzung 

'arithm. 

Ausdruck hinter $64-Code' 

8FB8 

C9 

52 


CMP 

#$52 ;Code fuer MOD 

8FBA 

DO 

2A 


BNE 

$8FE6 ; 

nein, dann weiter 

FNMOB: 







8FBC 

20 

73 

00 

OSR 

CHRGET 

;Code ueberlesen 

8FBF 

20 

FA 

AE 

3SR 

CHKKEA 

;( 

8FC2 

20 

15 

94 

OSR 

SGETADR2 

;Wert holen 

8FC5 

8D 

01 

CB 

STA 

IDIVDEND+1 ;als Dividend speichern 

8FC8 

8C 

00 

CB 

STY 

IDIVDEND 


8FCB 

20 

FD 

AE 

OSR 

CHKCOM 

; Komma ? 

8FCE 

20 

15 

94 

OSR 

SGETADR2 

;Wert holen 
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8FD1 

80 

BO 

OB 

STA 

IOIVSOR+1 

;als Oivisor speichern 

8FD4 

80 

BB 

OB 

STY 

lOIVSOR 


8FD7 

20 

F7 

AE 

.TSR 

OHKKLZ 

;) 

8FDA 

20 

45 

8F 

TSR 

lOIV 

;0iVision durchfuehren 

8FDD 

AC 

02 

OB 

LOY 

lüIVREST 

;Rest als Ergebnis 

8FE0 

AE 

03 

OB 

LOX 

IOIVREST+1 

8FE3 

40 

00 

80 

TMP 

SXYFLP 

;nach Fliesskomma wandeln 

;Fortsetzung 

'arithm. 

Ausdruck hinter $64-0ode' 

8FE6 

09 

59 


OMP 

#$59 

;Oode fuer LIN 

8FE8 

00 

OE 


BNE 

$8FF8 

;nein, dann weiter 

FNLIN: 







8FEA 

20 

OB 

83 

TSR 

INOBASBZ 


8FED 

38 



SEO 



8FEE 

20 

FO 

FF 

TSR 

$FFFO 

;Oursor-Position holen 

8FF1 

8A 



TXA 


;Oursor-Zeile in X 

8FF2 

A8 



TAY 



8FF3 

A2 

00 


LOX 

#$00 

;High-Byte = 0 

8FF5 

40 

00 

80 

TMP 

SXYFLP 

;nach Fliesskomma wandeln 

;Fort Setzung 

’arithm. 

Ausdruck hinter $64-0ode' 

8FF8 

09 

58 


OMP 

#$58 

;Oode fuer TEST 

8FFA 

00 

30 


BNE 

$9020 

;nein, dann weiter 

FNTEST: 






8FFC 

20 

73 

00 

TSR 

OHRGET 

;Oode ueberlesen 

8FFF 

20 

FA 

AE 

TSR 

OHKKLA 

;( 

9002 

20 

15 

94 

TSR 

SGETA0R2 

;Wert (X-Koord.) 

9005 

84 

09 


STY 

$09 

;nach $09,$0A 

9007 

85 

OA 


STA 

$0A 


9009 

20 

FO 

AE 

TSR 

GHKGOM 

; Komma ? 

900C 

20 

15 

94 

TSR 

SGETA0R2 

;Wert (Y-Koord.) 

900F 

84 

A4 


STY 

$A4 

;nach $A4 

9011 

20 

F7 

AE 

TSR 

OHKKLZ 

;) 

9014 

A9 

OB 


LOA 

#$0B 

;ii 

9016 

85 

F7 


STA 

$F7 

;als Punktfarbe 

9018 

20 

EO 

82 

TSR 

BASROMAU 

/Basic aus 

9018 

20 

97 

92 

TSR 

PUNKT 

; Punkt-Routine 

901E 

A2 

00 


LOX 

#$00 


9020 

A4 

90 


LOY 

$90 

/Test-Ergebnis 

9022 

20 

F3 

82 

TSR 

BASROMEI 

/Basic ein 

9025 

20 

OE 

94 

TSR 

KERROMEIN ;Kernal ein 

9028 

58 



OLI 



9029 

40 

00 

80 

TMP 

SXYFLP 

/nach Fliesskomma wandeln 
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;Fortsetzung 'arithm. Ausdruck hinter $64-Code' 


902C 

09 

57 


OMP 

#$57 

;Gode für INST 

902E 

FO 

03 


BEQ 

FNINST 

;ja ? 

9030 

40 

A4 

90 

OMP 

$90 A4 

; sonst weiter 

FNINST: 







9033 

20 

73 

00 

OSR 

OHRGET 

;Gode überlesen 

9036 

20 

FA 

AE 

OSR 

OHKKEA 

;( 

9039 

20 

7B 

80 

OSR 

SGETSTRl 

;1. String holen 

9030 

85 

A8 


STA 

$A8 

(•Adresse nach $A7,$A8 

903E 

86 

A7 


STX 

$A7 


9040 

A5 

69 


EDA 

$69 

;Stringlänge 

9042 

8D 

B7 

OB 

STA 

STREENl 


9045 

20 

FD 

AE 

OSR 

GHKGOM 

; Komma ? 

9048 

20 

7B 

80 

OSR 

SGETSTRl 

;2. String holen 

904B 

85 

AA 


STA 

$AA 

(•Adresse nach $A9,$AA 

904D 

86 

A9 


STX 

$A9 


904F 

A5 

69 


EDA 

$69 

;Stringlänge 

9051 

80 

B4 

OB 

STA 

STREEN2 


9054 

20 

75 

80 

OSR 

GETBYTG 

(•holt Position 

9057 

8E 

IF 

05 

STX 

POS 


905A 

20 

F7 

AE 

OSR 

GHKKEZ 

;) 

905D 

18 



OEO 



905E 

AD 

B7 

OB 

EDA 

STREENl 

(•STREENl + POS 

9061 

60 

IF 

05 

ADO 

POS 


9064 

00 

B4 

OB 

OMP 

STREEN2 

(•kleiner gleich STREEN2 ? 

9067 

90 

08 


BOO 

$9071 

(•ja, dann Eänge = STREEN2 

9069 

40 

74 

90 

OMP 

$9074 

(•sonst Eänge = Akku 

9060 

A9 

03 


EDA 

#$03 

;Nr. f. 'string to large’ 

906 E 

40 

80 

88 

OMP 

SERROUT 

(•Fehler ausgeben 

9071 

AD 

B4 

OB 

EDA 

STREEN2 

(•Eänge = STREEN2 

9074 

20 

7D 

B4 

OSR 

NEUSTR 

(•String einrichten 

9077 

AO 

00 


EDY 

#$00 

(•Zähler 

9079 

Bl 

A9 


EDA 

($A9),Y 

(•Zeichen aus altem String 

90 7B 

91 

62 


STA 

($62) ,Y 

;in neuen String übertr. 

90 7D 

08 



INY 


(•naechstes Zeichen 

907E 

00 

B4 

OB 

OPY 

STREEN2 

(•String zu Ende ? 

9081 

DO 

F6 


BNE 

$9079 

(•nein, dann Schleife 

9083 

AO 

00 


EDY 

#$00 


9085 

80 

20 

05 

STY 

POSl 

;P0S1 als Zähler 

9088 

Bl 

A7 


EDA 

($A7) ,Y 

(•Zeichen aus 1. String 

908A 

EE 

20 

05 

INO 

POSl 

(•Zähler erhoehen 

908 D 

AO 

IF 

05 

EDY 

POS 

(•neue Pos. holen 

9090 

91 

62 


STA 

($62), Y 

(•Zeichen speichern 

9092 

EE 

IF 

05 

INO 

POS 

(•neue Pos. erhoehen 

9095 

AO 

20 

05 

EDY 

POSl 


9098 

00 

B7 

OB 

OPY 

STREENl 

;1. String zu Ende ? 

909B 

DO 

EB 


BNE 

$9088 

(•nein, dann Schleife 
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909D 

A9 

FF 


LOA 

#$FF 

; Stringflag 

909F 

85 

00 


STA 

$00 

;setze n 

90A1 

40 

CA 

B4 

OMP 

PUSHSTR 

,-String auf Stapel leg^ 

;Fortsetzung 

'arithm. 

Ausdruck 

hinter $64-Code' 

90 A4 

09 

56 


CMP 

#$56 

;Code für INKEY 

90A6 

00 

OB 


BNE 

$90B3 

; ne i n ? 

FNINKEY: 






90A8 

20 

OB 

83 

OSR 

INCBASBZ 

;Code überlesen 

90AB 

AC 

06 

05 

LOY 

INKEY 

(•gespeicherter Wert 

90AE 

A2 

00 


LOX 

#$00 

;High-Byte = 0 

90B0 

4C 

00 

80 

OMP 

SXYFLP 

;nach Fliessk. wandeln 

;Fort se tzung 

'arithm• 

Ausdruck 

hinter $64-Code' 

90B3 

09 

50 


CMP 

#$5C 

;Code für POT 

90B5 

00 

03 


BNE 

$90BA 

;nein ? 

90B7 

40 

lA 

89 

OMP 

FNPOT 

;zur POT-Funktion 

90BA 

09 

50 


CMP 

#$50 

;Code für PENX 

90BC 

00 

03 


BNE 

$9001 

;nein ? 

90BE 

40 

3A 

89 

OMP 

FNPENX 

;zur PENX-Funktion 

90C1 

09 

5F 


CMP 

#$5F 

;Code für PENY 

90C3 

00 

03 


BNE 

$9008 

;nein ? 

90 C5 

40 

43 

89 

OMP 

FNPENY 

;zur PENY-Funktion 

9008 

09 

61 


CMP 

#$61 

;Code für GRAPHICS 

90 CA 

00 

OA 


BNE 

$9006 

/nein ? 

FNGRAPHICS: 





90CC 

20 

OB 

83 

OSR 

INCBASBZ 

/Code überlesen 

90CF 

A2 

00 


LOX 

#$00 

/Konstante $0000 

90D1 

AO 

00 


LOY 

#$00 


9003 

4C 

00 

80 

OMP 

SXYFLP 

/nach Fliesskomma 

; Fortsetzung 

'arithm. 

Ausdruck 

hinter $64-Code' 

9006 

09 

60 


CMP 

#$60 

/Code für SOUNO 

9008 

00 

OA 


BNE 

$90E4 

/nein ? 

FNSOUNO: 






900A 

20 

OB 

83 

OSR 

INCBASBZ ;Code überlesen 

9000 

A2 

04 


LOX 

#$04 

/Konstante $0400 

900F 

AO 

00 


LOY 

#$00 


90E1 

40 

00 

80 

OMP 

SXYFLP 

/nach Fliessk. 

; Fortsetzung 

'arithm. 

Ausdruck 

hinter $64-Code' 

90 E4 

09 

28 


CMP 

#$28 

/Code für AT 

90E6 

00 

03 


BNE 

$90EB 

/nein ? 

90E8 

40 

B7 

97 

OMP 

FNAT 

/zum AT-Befehl 
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90EB 

C9 

7C 


CMP 

#$7C 

Code für CHECK 

90ED 

00 

57 


BNE 

FNERR 

nein, dann zu ERR-Fkt. 

FNCHECK: 






90EF 

20 

OB 

83 

OSR 

INCBASBZ 

;Code überlesen 

90F2 

20 

FA 

AE 

OSR 

CHKKLA 

;( 

90F5 

20 

15 

94 

OSR 

SGETA0R2 

;Wert (Sprite-Nr.) holen 

90F8 

8C 

IF 

C5 

STY 

POS 

;in POS speichern 

90FB 

AO 

15 

C5 

LOA 

OETECTART 

; 0 b zw. 1 

90FE 

00 

33 


BNE 

$9133 

;wenn 1, dann weiter 

;Kol 1 isior 

zwischen zwei Sprites 

behandeln 

9100 

20 

FO 

AE 

OSR 

CHKCOM 

;Komma ? 

9103 

20 

15 

94 

OSR 

SGETA0R2 

;2. Wert holen 

9106 

80 

20 

C5 

STY 

POSl 

;in POSl speichern 

9109 

20 

F7 

AE 

OSR 

CHKKLZ 

;) 

910C 

AC 

IF 

C5 

LOY 

POS 

;Nr. von 1. Sprite 

910F 

AO 

14 

C5 

LOA 

OETECTERG 

(•Ergebnis von OETECT 

9112 

19 

78 

97 

ORA 

MBITTABS,Y ;mit entspr. Bit Odern 

9115 

CO 

14 

C5 

CMP 

OETECTERG 

;war Bit gesetzt ? 

9118 

00 

15 


BNE 

$912F 

(•nein? 

91 lA 

AC 

20 

C5 

LOY 

POSl 

;Nr. von 2. Sprite 

9110 

AO 

14 

C5 

LOA 

OETECTERG 


9120 

19 

78 

97 

ORA 

MBITTABS,Y ;entspr. Bit 

9123 

CO 

14 

C5 

CMP 

OETECTERG 

(•war auch dieses Bit 1 

9126 

00 

07 


BNE 

$912F 

(•nein ? 

9128 

AO 

00 


LOY 

#$00 

;0 

912A 

A2 

00 


LOX 

#$00 


912C 

4C 

CO 

8C 

OMP 

SXYFLP 

(•nach Fliessk. wandeln 

912F 

AO 

01 


LOY 

#$01 

;i 

9131 

00 

F7 


BNE 

$912A 

;unbed. Sprung 

(•Kollision von 1 

Sprite mit Hintergrund-Zeichen behandeln 

9133 

20 

F7 

AE 

asR 

CHKKLZ 

;) 

9136 

AC 

IF 

C5 

LOY 

POS 

;Sprite-Nr. 

9139 

AO 

14 

C5 

LOA 

OETECTERG 

(•Ergebnis von OETECT 

913C 

19 

78 

97 

ORA 

MBITTABS,Y ;mit entspr. Bit Odern 

913F 

CO 

14 

C5 

CMP 

OETECTERG 

(•war Bit gesetzt ? 

9142 

00 

EB 


BNE 

$912F 

(•nein, dann CHECK=1 

9144 

FO 

E2 


BEQ 

$9128 

(•sonst CHECK=0 

FNERR: 






(•saemtliche ERR-Befehle 

9146 

20 

OB 

83 

OSR 

INCBASBZ 

(•Code überlesen 

9149 

AO 

00 


LOY 

#$00 


914B 

Bl 

7A 


LOA 

($7A),Y 

(•naechster Basic-Code 

9140 

C9 

4E 


CMP 

#$4E 

;*N' (für ERRN) 

914F 

FO 

IC 


BEQ 

FNERRN 

;ia ? 

9151 

C9 

4C 


CMP 

#$4C 

(für ERRLN) 

9153 

FO 

03 


BEQ 

FNERRLN 

;ja ? 

9155 

4C 

2A 

82 

OMP 

ENOSMB 

(•sonst Ende (und Fehler) 
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FNERRLN: 


9158 

20 

DB 

83 

OSR 

INOBASBZ 

;Gode ("L“) überlesen 

915B 

Bl 

7A 


LDA 

($7A),Y 

;naechster Basic-Gode 

915D 

09 

4E 


OMP 

#$4E 

;‘N- 

915F 

DO 

F4 


BNE 

$9155 

;nein, dann Ende u. Fehler 

9161 

AC 

ID 

05 

LDY 

ERRLN 

;Zeilennummer, wo Fehler 

9164 

AE 

lE 

05 

LDX 

ERRLN+1 

;auftrat in ERRLN,ERRLN+1 

9167 

20 

DB 

83 

OSR 

INOBASBZ 

;Gode (’N*) überlesen 

916A 

40 

OD 

80 

OMP 

SXYFLP 

;Zeilennnr. n. Fliesskomma 

FNERRN: 







916D 

AO 

FO 

05 

LDY 

ERRN 

;Fehlernr. steht in ERRN 

9170 

A2 

00 


LDX 

#$00 

;High-Byte = 0 

9172 

FO 

F3 


BEQ 

$9167 

(•weiter wie oben (unbed.) 

BEFO: 






(•Leerbefehl (z.B. DISAPA) 

9174 

20 

73 

00 

OSR 

OHRGET 

(•Gode überlesen 

9177 

40 

2A 

82 

OMP 

ENDSMB 

(•Simon' s-Befehl beenden 

SBASBEF: 





(•einen Befehl ausfuehren 

917A 

A5 

39 


LDA 

$39 

(•aktuelle Zeilennummer 

917C 

OD 

86 

05 

OMP 

ZN 

(•vorige Zeilennr. 

917F 

DO 

07 


BNE 

$9188 

;ungleich( dann weiter 

9181 

A5 

3A 


LDA 

$3A 


9183 

OD 

87 

05 

OMP 

ZN + 1 

(•Zeilennummern gleich ? 

9186 

FO 

lE 


BEQ 

$91A6 

; ja, dann zu $91A6 

9188 

A5 

39 


LDA 

$39 

(•vorige Znr. = akt. Znr. 

918A 

8D 

86 

05 

STA 

ZN 


918D 

A5 

3A 


LDA 

$3A 


918F 

8D 

87 

05 

STA 

ZN + 1 


9192 

AD 

01 

06 

LDA 

TRAOEFLAG ;TRAGE aktiv ? 

9195 

09 

OA 


OMP 

#$0A 


9197 

DO 

03 


BNE 

$9190 

(•nein ? 

9199 

20 

6A 

89 

OSR 

TRAOEl 

(•TRAGE behandeln 

919C 

AD 

EA 

05 

LDA 

ONKEYFLAG ;ONKEY aktiv ? 

919F 

09 

OA 


OMP 

#$0A 


91A1 

DO 

03 


BNE 

$91A6 

(•nein ? 

91A3 

20 

BA 

9D 

OSR 

ONKEYl 

(•ONKEY behandeln 

91A6 

20 

73 

00 

OSR 

OHRGET 

(•Basic-Gode holen 

91A9 

A9 

00 


LDA 

#$00 


91AB 

8D 

52 

OA 

STA 

FLAGl 

(•Flags annullieren 

91AE 

8D 

B2 

05 

STA 

AUTOFLAG 


91B1 

AD 

01 

06 

LDA 

TRAGEFLAG ;Trace aktiv ? 

91B4 

09 

OA 


OMP 

#$0A 


91B6 

DO 

03 


BNE 

$91BB 

(•nein ? 

91B8 

20 

E2 

89 

OSR 

TRAGESHOW ;Trace-Fenster malen 

91BB 

AO 

00 


LDY 

#$00 


91BD 

Bl 

7A 


LDA 

($7A),Y 

(•Basic-Gode 

91BF 

09 

8B 


OMP 

#$8B 

(•Gode für IF 

91C1 

DO 

03 


BNE 

$9106 

(•nein ? 

91C3 

40 

60 

9B 

OMP 

BEFIF 

;zum IF-Befehl 
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91C6 

09 

64 


OMP 

#$64 

(■Praefix für Simon's-Bef. 

91C8 

FO 

20 


BEQ 

$91EA 

;ja, dann zum Sprungvert. 

91CA 

09 

8A 


OMP 

#$8A 

;Gode für RUN 

91CC 

FO 

OE 


BEQ 

$9100 


91CE 

09 

90 


OMP 

#$90 

;Gode für GLR 

91D0 

FO 

OA 


BEQ 

$9100 


91D2 

09 

A2 


OMP 

#$A2 

;Gode für NEW 

91D4 

FO 

06 


BEQ 

$9100 


91D6 

20 

79 

00 

3SR 

OHRGOT 

;Gode holen 

91D9 

40 

E7 

A7 

OMP 

$A7E7 

;zur normalen Basic- 
; Befehls-Oekodier-Routine 

91DC 

A2 

00 


LOX 

#$00 


91DE 

8E 

17 

06 

STX 

SPREPEAT 

(•Stacks initialisieren 

91E1 

8E 

20 

06 

STX 

SPEXEO 


91E4 

8E 

41 

06 

STX 

SPLOOP 


91E7 

40 

06 

91 

OMP 

$9106 

(■weiter wie oben 

91EA 

20 

OB 

83 

OSR 

INOBASBZ 

(■Code ($64) überlesen 

91ED 

20 

EO 

82 

OSR 

BASROMAU 

(Basic aus 

91F0 

Bl 

7A 


LOA 

($7A),Y 


91F2 

OA 



ASL 

A 

(■Code verdoppeln 

91F3 

A8 



TAY 


91F4 

88 



OEY 



91F5 

88 



OEY 

(■minus 2; als Zeiger in SPRTAB 

91F6 

B9 

05 

86 

LOA 

SPRTAB+1 

,Y ;high-Byte (Zieladr.-l) 

91F9 

48 



PHA 


(■auf Stapel 

91FA 

B9 

04 

86 

LOA 

SPRTAB,Y 

; low-Byte (Zieladr.-l) 

91FD 

48 



PHA 


(■auf Stapel 

91FE 

60 



RTS 


(■Sprung zu Zieladr. 

BEFHIRES; 






91FF 

A9 

01 


LOA 

#$01 

;XMAX auf 319 setzen 

9201 

80 

2E 

05 

STA 

XMAXHIGH 


9204 

A9 

3F 


LOA 

#$3F 


9206 

80 

20 

05 

STA 

XMAXLOW 


9209 

A9 

00 


LOA 

#$00 


920B 

85 

A6 


STA 

$A6 


9200 

AO 

00 


LOY 

#$00 


920F 

80 

10 

OB 

STY 

LOWGOLFLAG ;annu11ieren 

9212 

A9 

EO 


LOA 

#$E0 


9214 

85 

A7 


STA 

$A7 

;($A6,$A7) auf $E000 

9216 

20 

00 

99 

OSR 

GET2NYB 

;2 Nybbles (Farben) holen 

9219 

A6 

AA 


LOX 

$AA 


921B 

86 

AO 


STX 

$AG 

;akt. Farben 

9210 

A9 

00 


LOA 

#$00 


921F 

91 

A6 


STA 

($A6),Y 

;Grafik-RAM loeschen 

9221 

20 

E9 

9A 

OSR 

INGA6A7 

(■nächste Zelle 

9224 

A5 

A6 


LOA 

$A6 


9226 

09 

40 


OMP 

#$40 

(■Ende low erreicht ? 

9228 

00 

F3 


BNE 

$9210 

(■nein, dann Schleife 

922A 

A5 

A7 


LOA 

$A7 
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922C 

C9 

FF 


OMP 

#$FF 

;Ende high erreicht ? 

922E 

DO 

ED 


BNE 

$921D 

;nein, dann Schleife 

9230 

A9 

00 


EDA 

#$00 


9232 

80 

BO 

05 

STA 

MUETIJN 

;Multi-Flag loeschen 

9235 

20 

37 

A8 

JSR 

NRM 

;Speicherverteilung norm. 

9238 

A9 

OA 


EDA 

#$0A 

923A 

8D 

B3 

05 

STA 

GMEMFEAG 

;Flag entsprechend setzen 

923D 

A9 

3B 


EDA 

#$3B 

923F 

8D 

11 

DO 

STA 

VIGSTl 

;VIO Steuerreg. 1 

9242 

A9 

OB 


EDA 

#$0B 

9244 

8D 

18 

DO 

STA 

VIGADS 

;VIO Adressregister 

9247 

A9 

94 


EDA 

#$94 

9249 

8D 

00 

DD 

STA 

GIA2PRA 

;0IA2-Port (stellt Bit 14 
;und 15 v. Grafik RAM her) 

924C 

AO 

00 


EDY 

#$00 


924E 

80 

ID 

OB 

STY 

EOWGOEFEAG 

9251 

A5 

AO 


EDA 

$AG 

(■aktuelle Farbkombination 

9253 

99 

00 

00 

STA 

$0000,Y 

;in Video-RAM schreiben 

9256 

99 

FF 

00 

STA 

$OOFF, Y 


9259 

99 

FE 

01 

STA 

$01FE,Y 


925C 

99 

FD 

02 

STA 

$02FD, Y 


925F 

08 



INY 



9260 

00 

FF 


OPY 

#$FF 


9262 

DO 

ED 


BNE 

$9251 

(•Schleife f. Video-RAM 

9264 

40 

2A 

82 

JMP 

ENDSMB 

(•Befehl beenden 


BEFPLOT: 


9267 

20 

DB 

83 

JSR 

INOBASBZ 

;Oode ueberlesen 

926A 

20 

27 

94 

JSR 

SGETADR 

(•Wert (X-Koord.) holen 

926D 

84 

09 


STY 

$09 

(•nach $09($0A 

926F 

85 

OA 


STA 

$0A 


9271 

20 

FO 

81 

JSR 

SGETBYTO 

(•Byte-Wert (Y) holen 

9274 

86 

A4 


STX 

$A4 

(•nach $A4 

9276 

20 

7D 

93 

JSR 

GETPKTF 

(•Punktfarbe holen 

9279 

A5 

OA 


EDA 

$0A 


927B 

FO 

OF 


BEQ 

$9280 

;X kleiner 256, dann ok 

927D 

A5 

09 


EDA 

$09 


927F 

09 

7F 


OMP 

#$7F 


9281 

DO 

09 


BNE 

$9280 

;X ungleich 383, dann ok 

9283 

A5 

F7 


EDA 

$F7 

(•Punktfarbe 

9285 

09 

7F 


OMP 

#$7F 


9287 

DO 

03 


BNE 

$9280 

(■ungleich 127, dann ok 

9289 

40 

AA 

BD 

JMP 

DSOBMOUTl 

(•Sprung nach $9A5A 

9280 

20 

97 

92 

JSR 

PUNKT 

(•Punkt setzen 

928F 

40 

2A 

82 

JMP 

ENDSMB 

(•Befehl beenden 

9292 

A9 

08 


EDA 

#$08 


9294 

85 

90 


STA 

$90 


9296 

60 



RTS 






166 


Kapitel 6 


PUNKT: 




;x 

in $09, 

$0A; Y in $A4; Farbe in $F7 

9297 

18 



OLO 



9298 

A5 

09 


EDA 

$09 


929A 

ED 

2D 

05 

SBO 

XMAXLOW 

;Plausibilitaet X-Koord. 

929D 

A5 

OA 


LDA 

$0A 


929F 

ED 

2E 

05 

SBO 

XMAXHIGH 

92A2 

BO 

EE 


BOS 

$9292 

;X zu gross, dann ST=8 

9 2 A4 

A5 

A4 


LDA 

$A4 


92A6 

C9 

08 


OMP 

#$08 

;Plausibilitaet Y-Koord. 

92A8 

BO 

E8 


BOS 

$9292 

;Y zu gross, dann ST=8 

92AA 

AD 

BO 

05 

LDA 

MULTION 

;Multi-Golour-Mode ? 

92AD 

FO 

04 


BEQ 

$92B3 

;nein, dann weiter 

92AF 

06 

09 


ASL 

$09 

;X verdoppeln 

92B1 

26 

OA 


ROL 

$0A 


92B3 

A5 

09 


LDA 

$09 


92B5 

29 

07 


AND 

#$07 

;(X and 7) 

92B7 

AA 



TAX 


;X-Reg. = Stelle im Byte 

92B8 

A5 

A4 


LDA 

$A4 


92BA 

29 

07 


AND 

#$07 


92BC 

85 

63 


STA 

$63 

;(Y and 7) nach $63 

92BE 

A5 

09 


LDA 

$09 


92C0 

29 

F8 


AND 

#$F8 

;X = (X and $FFF8) 

92C2 

85 

09 


STA 

$09 


92C4 

A5 

F7 


LDA 

$F7 

;Punktfarbe 

92C6 

09 

OB 


OMP 

#$0B 

;$0B fuer TEST 

92C8 

FO 

IF 


BEQ 

$92E9 

; ja, dann weiter 

92CA 

AD 

ID 

OB 

LDA 

LOWOOLFLAG 

92CD 

FO 

lA 


BEQ 

$92E9 

;LOWGOL inaktiv, dann weiter 

92CF 

AD 

AE 

05 

LDA 

GFLAG 


92D2 

DO 

15 


BNE 

$92E9 

,-GFLAG gestezt, dann weiter 

92D4 

A5 

A4 


LDA 

$A4 

;Y und X retten 

92D6 

48 



PHA 



92D7 

A5 

09 


LDA 

$09 


92D9 

48 



PHA 



92DA 

A5 

OA 


LDA 

$0A 


92DC 

48 



PHA 



92DD 

20 

83 

93 

OSR 

FARBSET 

/Farbe lokal aendern 

92E0 

68 



PLA 


;Y und X wiederherste1 len 

92E1 

85 

OA 


STA 

$0A 


92E3 

68 



PLA 



92E4 

85 

09 


STA 

$09 


92E6 

68 



PLA 



92E7 

85 

A4 


STA 

$A4 


92E9 

A5 

A4 


LDA 

$A4 

;Y-Koord. 

92EB 

4A 



LSR 

A 


92EC 

4A 



LSR 

A 


92ED 

4A 



LSR 

A 

; Y d i V 8 

92EE 

A8 



TAY 



92EF 

18 



OLO 



92F0 

B9 

2D 

94 

LDA 

GADRTABL,Y ;Tab.: $E000+320*Y 

92F3 

65 

63 


ADO 

$63 

/Offset von (Y and 7) 
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92F5 

65 

09 


AOC 

$09 

;Offset von X-Koord. 

92F7 

85 

A8 


STA 

$A8 

;gibt Adresse low 

92F9 

B9 

46 

94 

LOA 

GAORTABH, 

Y ;analog High-Bytes 

92FC 

65 

OA 


AOC 

$0A 

92FE 

85 

A9 


STA 

$A9 


9300 

AO 

00 


LOY 

#$00 

;Y-Reg. annullieren 

9302 

84 

90 


STY 

$90 

;ST=0 (Statusbyte) 

9304 

78 



SEI 


9305 

A5 

01 


LOA 

$01 


9307 

29 

FO 


ANO 

#$F0 

;Kernal-ROM ausschalten 

9309 

85 

01 


STA 

$01 


930B 

AO 

AE 

C5 

LOA 

GFLAG 


930E 

FO 

01 


BEQ 

$9311 

;wenn GFLAG=0, dann weiter 

9310 

60 



RTS 

;GFLAG=$FF beim Blockzeichn. 

9311 

AO 

BO 

C5 

LOA 

MULTIJN 


9314 

FO 

03 


BEQ 

$9319 

;kein Multi, dann weiter 

9316 

4C 

70 

9A 

JMP 

$9A70 

;Punkt im MCM 

Punkt 

im 

normalen Grafik-Modus 


9319 

A5 

F7 


LOA 

$F7 

; Punktfarbe 

931B 

FO 

IB 


BEQ 

$9338 

/Punkt loeschen bei $9338 

9310 

C9 

01 


CMP 

#$01 


931F 

FO 

07 


BEQ 

$9328 

/Punkt setzen bei $9328 

9321 

C9 

02 


CMP 

#$02 


9323 

FO 

23 


BEQ 

$9348 

/Punkt invert. bei $9348 

9325 

4C 

61 

A2 

JMP 

PTESTl 

/Punkt testen 

9328 

Bl 

A8 


LOA 

($A8),Y 


932A 

10 

30 

93 

ORA 

GBITTABS, 

X /entspr. Bit setzen 

9320 

91 

A8 


STA 

($A8),Y 

932F 

60 



RTS 


/fertig 

GBITTABS: 






9330 

80 

40 

20 

10 08 

04 02 01 

/Tabelle f. Punkt setzen 

9338 

Bl 

A8 


LOA 

($A8),Y 


933A 

30 

40 

93 

ANO 

GBITTABL, 

,X /entspr. Bit loeschen 

9330 

91 

A8 


STA 

($A8),Y 

933F 

60 



RTS 



GBITTABL: 






9340 

7F 

BF 

OF 

EF F7 

FB FO FE 

/Tabelle f. Punkt loeschen 

9348 

Bl 

A8 


LOA 

($A8),Y 


934A 

50 

30 

93 

EOR 

GBITTABS,X ;entspr. Bit invert. 

9340 

91 

A8 


STA 

($A8),Y 


934F 

60 



RTS 




BEFLINE: 

9350 20 59 93 JSR 


GETXYXYF ;AX,AY,EX,EY und Farbe 
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9353 

20 

5E 

A3 

asR 

LINZEI 

/Linie zeichnen 

9356 

4C 

2A 

82 

OMP 

ENOSMB 

/Befehl 

beenden 

GETXYXYF: 







9359 

20 

OB 

83 

OSR 

INCBASBZ 

/Code ueberlesen 

935C 

20 

27 

94 

OSR 

SGETAOR 

/Wert f. 

AX holen 

935F 

80 

98 

C5 

STA 

AX + 1 



9362 

8C 

97 

C5 

STY 

AX 



9365 

20 

FC 

81 

OSR 

SGETBYTC 

/Wert f. 

AY holen 

9368 

8E 

AC 

C5 

STX 

AY 



936B 

20 

31 

80 

asR 

SCHKCOM 

/Komma ? 


936E 

20 

27 

94 

3SR 

SGETAOR 

/Wert f. 

EX holen 

9371 

80 

AB 

C5 

STA 

EX + 1 



9374 

8C 

AA 

C5 

STY 

EX 



9377 

20 

FC 

81 

OSR 

SGETBYTC 

/Wert f. 

EY holen 

937A 

8E 

A8 

05 

STX 

EY 



GETPKTF: 







93 7D 

20 

FC 

81 

3SR 

SGETBYTC 

/Wert f. 

Pkt.Farbe holen 

9380 

86 

F7 


STX 

$F7 

/in $ F 7 

speichern 

9382 

60 



RTS 




FARBSET: 





/Farbe 

lokal aendern 

9383 

20 

OE 

94 

3 SR 

KERROMEIN 

/Kernal 

einschaIten 

9386 

A5 

09 


LOA 

$09 



9388 

4A 



LSR 

A 



938 9 

66 

OA 


ROR 

$0A 



938B 

66 

09 


ROR 

$09 



9380 

A5 

09 


LOA 

$09 



938F 

4A 



LSR 

A 



9390 

66 

OA 


ROR 

$0A 



9392 

66 

09 


ROR 

$09 



9394 

A5 

09 


LOA 

$09 



9396 

4A 



LSR 

A 



9397 

66 

OA 


ROR 

$0A 



9399 

66 

09 


ROR 

$09 

/$09,$0A 

3 Bit rechts rot. 

939B 

46 

A4 


LSR 

$A4 



9390 

46 

A4 


LSR 

$A4 



939F 

46 

A4 


LSR 

$A4 

/$A4 = ($A4 div 8) 

93A1 

20 

5F 

94 

JSR 

A4MAL40 

/$A4,$A5 

= $A4 * 40 

93A4 

18 



CLC 




93A5 

A5 

A4 


LOA 

$A4 



93A7 

65 

09 


AOC 

$09 



93A9 

85 

A8 


STA 

$A8 



93AB 

85 

AA 


STA 

$AA 



93A0 

A5 

A5 


LOA 

$A5 



93AF 

65 

OA 


AOC 

$0A 



93B1 

85 

A9 


STA 

$A9 ;$A8,$A9 = 

SA4/$A5 + $09/^OA 

93B3 

85 

AB 


STA 

$AB ;$AA,$AB = 

$A4/$A5 + $09/$0A 

93B5 

18 



CLC 




93B6 

A5 

A8 


LOA 

$A8 
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93B8 

69 

00 


ADC 

#$00 


93BA 

85 

A8 


STA 

$A8 


93BC 

A5 

A9 


LDA 

$A9 


93BE 

69 

CO 


ADC 

#$co 


93 CO 

85 

A9 


STA 

$A9 

;$A8,$A9 = $A8,$A9 + $C000 

93C2 

AO 

00 


LDY 

#$00 


93 C4 

AD 

IB 

CB 

LDA 

LCFARB12 

;Lowcol-Farben 1 & 2 

93C7 

91 

A8 


STA 

($A8),Y 

; in Video-RAM 

93C9 

18 



CLC 



93CA 

A5 

AA 


LDA 

$AA 


93CC 

69 

00 


ADC 

#$00 


93CE 

85 

A8 


STA 

$A8 


93D0 

A5 

AB 


LDA 

$AB 


93D2 

69 

D8 


ADC 

#$D8 


93D4 

85 

A9 


STA 

$A9 

;$A8,$A9 = $AA,$AB + $D800 

93D6 

AD 

IC 

CB 

LDA 

LCFARB3 

; Lowcol-Farbe 3 

93D9 

91 

A8 


STA 

($A8),Y 

;in Farb-RAM 

93DB 

60 



RTS 



BEFLOWCOL: 






93DC 

20 

02 

82 

OSR 

SGETBYTN 

;1.Farbe holen 

93DF 

8E 

IB 

CB 

STX 

LCFARB12 


93E2 

OE 

IB 

CB 

ASL 

LCFARB12 


93E5 

OE 

IB 

CB 

ASL 

LCFARB12 


93E8 

OE 

IB 

CB 

ASL 

LCFARB12 


93EB 

OE 

IB 

CB 

ASL 

LCFARB12 

;mal 16 

93EE 

20 

FC 

81 

OSR 

SGETBYTC 

;2.Farbe holen 

93F1 

8A 



TXA 



93F2 

OD 

IB 

CB 

ORA 

LCFARB12 

;mit altem Wert oderieren 

93F5 

8D 

IB 

CB 

STA 

LCFARB12 

;gibt Farbkombination 1&2 

93F8 

A9 

OA 


LDA 

#$0A 


93FA 

8D 

ID 

CB 

STA 

LOWCOLFLAG ;LOWCOL-Flaq setzen 

93FD 

20 

FC 

81 

OSR 

SGETBYTC 

,-3.Farbe holen 

9400 

8E 

IC 

CB 

STX 

LCFARB3 

(■speichern 

9403 

40 

2A 

82 

OMP 

ENDSMB 

;Befehl fertig 

KERROMAUS 






9406 

78 



SEI 


(■Interrupts verhindern 

9407 

A5 

01 


LDA 

$01 

; P rozessor-Port 

9409 

29 

FD 


AND 

#$FD 

(■Bit 1 annullieren 

940B 

85 

01 


STA 

$01 


9400 

60 



RTS 



KERROMEIN 






940E 

A5 

01 


LDA 

$01 


9410 

09 

02 


ORA 

#$02 

(■Bit 1 setzen 

9412 

85 

01 


STA 

$01 


9414 

60 



RTS 



SGETADR2: 



; (unnoetiq) 

umrahmter Aufruf von GETADR 

9415 

AD 

96 

C5 

LDA 

PORTSPEI 
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9418 

48 



PHA 


9419 

20 

27 

94 

OSR 

SGETAOR 

941C 

80 

70 

C5 

STA 

ZWSPEIl 

941F 

68 



PLA 


9420 

80 

96 

C5 

STA 

PORTSPEI 

9423 

AO 

70 

C5 

LOA 

ZWSPEIl 

9426 

60 



RTS 


SGETADR: 





9427 

20 

00 

80 

OSR 

SFRMNUM ;Tertn holen 

942A 

4C 

16 

80 

OMP 

SFACAOR ;in Adressformat wandeln 

GADRTABL: 

(■Tabelle fuer Low-Bytes von $E000 + 320 * Index 

9420 

00 

40 

80 

CO 00 

40 80 CO 

9435 

00 

40 

80 

CO 00 

40 80 CO 

9430 

00 

40 

80 

CO 00 

40 80 CO 

9445 

00 





GAORTABH: 

(Tabelle f. 

High-Bytes von $E000 + 320 * Index 

9446 

EO 

El 

E2 

E3 E5 

E6 E7 E8 

944E 

EA 

EB 

EC 

EO EF 

FO Fl F2 

9456 

F4 

F5 

F6 

F7 F9 

FA FB FC 

945E 

FE 





A4MAL40: 





945F 

A9 

00 


LOA 

#$00 

9461 

85 

A5 


STA 

$A5 ;$A5=0 

9463 

06 

A4 


ASL 

$A4 

9465 

26 

A5 


ROL 

$A5 

9467 

06 

A4 


ASL 

$A4 

9469 

26 

A5 


ROL 

$A5 

946B 

06 

A4 


ASL 

$A4 

9460 

26 

A5 


ROL 

$A5 ;$A4($A5 = $A4($A5 * 8 

946F 

A5 

A5 


LOA 

$A5 

9471 

48 



PHA 


9472 

A5 

A4 


LOA 

$A4 

9474 

48 



PHA 


9475 

06 

A4 


ASL 

$A4 

9477 

26 

A5 


ROL 

$A5 

9479 

06 

A4 


ASL 

$A4 

947B 

26 

A5 


ROL 

$A5 ;$A4($A5 enth. Wert * 32 

9470 

18 



CLC 


947E 

68 



PLA 


947F 

65 

A4 


AOC 

$A4 

9481 

85 

A4 


STA 

$A4 

9483 

68 



PLA 


9484 

65 

A5 


AOC 

$A5 

9486 

85 

A5 


STA 

$A5 (-Wert * 40 

9488 

60 



RTS 
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BEFCIRCLE: 


9489 

20 

DB 

83 

OSR 

INCBASBZ 

;Code ueberlesen 

948C 

A9 

00 


LOA 

#$00 

948E 

8D 

7C 

C5 

STA 

DREHSINN 


9491 

80 

2F 

C5 

STA 

UEBERDREH 


9494 

20 

27 

94 

OSR 

SGETADR 

;Mittelpkt. X-Koord. holen 

9497 

8C 

4B 

CB 

STY 

KMX 

949A 

8D 

4C 

CB 

STA 

KMX + 1 


949D 

20 

FC 

81 

OSR 

SGETBYTC 

;Mittelpkt. Y-Koord. holen 

94A0 

8E 

49 

CB 

STX 

KMY 

94A3 

A9 

00 


LOA 

#$00 


94A5 

85 

A8 


STA 

$A8 

;Startwinke 1 

94A7 

85 

A9 


STA 

$A9 


94A9 

80 

4E 

CB 

STA 

WINKSW+1 

;WinkeIschritt (High) 

94AC 

A9 

68 


LOA 

#$68 

94AE 

85 

AC 


STA 

$AC 


94B0 

A9 

01 


LOA 

#$01 


94B2 

85 

AD 


STA 

$AD 

;$AC,$AD = 360 (Endwinkel) 

94B4 

A9 

OC 


LOA 

#$oc 


94B6 

8D 

4D 

CB 

STA 

WINK SW 

;WinkeIschrittweite = 12 

94B9 

20 

FC 

81 

OSR 

SGETBYTC 

(•Radius X holen 

94BC 

8E 

48 

CB 

STX 

KRX 


94BF 

20 

FC 

81 

OSR 

SGETBYTC 

(•Radius Y holen 

94C2 

8E 

C5 

CB 

STX 

KRY 


94C5 

20 

70 

93 

OSR 

GETPKTF 

(•Punktfarbe 

94C8 

20 

14 

A9 

OSR 

KREIS 

(Kreis zeichnen 

94CB 

4C 

2A 

82 

OMP 

ENDSMB 

(•Befehl fertig 

20PL40: 







94CE 

18 



CLC 



94CF 

A5 

20 


LDA 

$20 


94D1 

69 

28 


ADC 

#$28 

(•+40 

94D3 

85 

20 


STA 

$20 


94D5 

A5 

21 


LDA 

$21 


94D7 

69 

00 


ADC 

#$00 


94D9 

85 

21 


STA 

$21 

;$20($21 = $20,$21 + 40 

94DB 

60 



RTS 



23PL40 







94DC 

18 



CLC 



94DD 

A5 

23 


LDA 

$23 


94DF 

69 

28 


ADC 

#$28 

;+40 

94E1 

85 

23 


STA 

$23 


94E3 

A5 

24 


LDA 

$24 


94E5 

69 

00 


ADC 

#$00 


94E7 

85 

24 


STA 

$24 

;$23,$24 = $23,$24 + 40 

94E9 

60 



RTS 



BEFMULTI: 






94EA 

A9 

2C 


LDA 

#$2C 


94EC 

8D 

BO 

C5 

STA 

MULTION 

;Multi-Flag setzen 
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94EF 

A9 

9F 


LOA 

#S9F 

94F1 

80 

20 

05 

STA 

XMAXLOW 

94F4 

A9 

00 


LOA 

#$00 

94F6 

80 

2E 

05 

STA 

XMAXHIGH ;XMAX = 159 

94F9 

20 

00 

99 

OSR 

GET2NYB ;2 Werte holen 

94FC 

AO 

00 


LOY 

#$00 

94FE 

A2 

00 


LOX 

#$00 

9500 

8A 



TXA 


9501 

A5 

AA 


LOA 

$AA ;Farbkombination 1&2 

9503 

99 

00 

00 

STA 

$0000,Y ;in Video-RAM 

9506 

99 

F9 

00 

STA 

$00F9,Y 

9509 

99 

F3 

01 

STA 

$01F3,Y 

9500 

99 

EO 

02 

STA 

$02E0,Y 

950F 

E8 



INX 


9510 

08 



INY 


9511 

00 

FB 


OPY 

#$FB 

9513 

00 

EB 


BNE 

$9500 /Schleife 

9515 

20 

FO 

81 

OSR 

SGETBYTO ;3.Farbe holen 

9518 

86 

AA 


STX 

$AA 

951A 

AO 

00 


LOY 

#$00 

9510 

A5 

AA 


LOA 

$AA 

951E 

99 

00 

08 

STA 

$0800,Y ;in Farb-RAM 

9521 

99 

F9 

08 

STA 

$08F9, Y 

9524 

99 

F3 

09 

STA 

$09F3, Y 

9527 

99 

EO 

OA 

STA 

$OAEO,Y 

952A 

08 



INY 


952B 

00 

FB 


OPY 

#$FB 

9520 

00 

EO 


BNE 

$9510 /Schleife 

952F 

A9 

18 


LOA 

#$18 

9531 

80 

16 

00 

STA 

VI0ST2 /VIO Steuerregister 2 

9534 

40 

2A 

82 

OMP 

ENOSMB /Befehl fertig 

BEFOOLOUR; 





9537 

20 

02 

82 

OSR 

SGETBYTN /Wert holen 

953A 

8E 

20 

00 

STX 

VIORAFAR /Rahmenfarbe 

9530 

20 

FO 

81 

OSR 

SGETBYTO /Wert holen 

9540 

8E 

21 

00 

STX 

VIOHIFAR /Hintergrundfarbe 

9543 

40 

2A 

82 

OMP 

ENOSMB /Befehl fertig 

BEFOIR 






9546 

20 

OB 

83 

OSR 

INOBASBZ /Oode ueberlesen 

9549 

20 

00 

FF 

OSR 

OLROH /Kanaele schliessen 

9540 

A9 

01 


LOA 

#$01 

954E 

20 

03 

FF 

OSR 

OLOSE /Oatei #1 schliessen 

9551 

20 

00 

FF 

JSR 

OLROH /Kanaele schliessen 

9554 

20 

B7 

86 

OSR 

SGETSTR /String holen 

9557 

86 

AE 


STX 

$AE /Adresse nach $AE,$AF 

9559 

85 

AF 


STA 

$AF 

955B 

AO 

00 


LOY 

#$00 

9550 

Bl 

AE 


LOA 

($AE),Y /Zeichen aus String 

955F 

09 

24 


OMP 

#$24 /”$" 
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9561 

FO 

05 


BEQ 

$9568 

;ja, dann weiter 

9563 

A9 

00 


LDA 

#$00 

;Nr.f. ’bad mode' 

9565 

40 

80 

88 

OMP 

SERROUT 

/Fehlermeldung ausgeben 

9568 

A4 

AF 


LDY 

$AF 


956A 

A5 

69 


LDA 

$69 


956C 

20 

BD 

FF 

JSR 

SETFNPAR 

/Filenamenparameter setzen 

956F 

A9 

01 


LDA 

#$01 

;File #1 

9571 

A2 

08 


LDX 

#$08 

/Geraetenr. 8 

9573 

AO 

00 


LDY 

#$00 

;Sekundaeradresse 0 

9575 

20 

BA 

FF 

OSR 

SETFPAR 

/Fileparameter setzen 

9578 

20 

00 

FF 

OSR 

OPEN 

/Datei oeffnen 

957B 

A2 

01 


LDX 

#$01 

/Datei #1 

957D 

20 

06 

FF 

OSR 

OHKIN 

/als Eingabekanal 

9580 

20 

OF 

FF 

3SR 

BASIN 

/'Startadresse' ueberlesen 

9583 

20 

OF 

FF 

OSR 

BASIN 


9586 

20 

OF 

FF 

3SR 

BASIN 

/'Vorwaertszeiger' ueberl. 

9589 

20 

OF 

FF 

OSR 

BASIN 


958C 

20 

OF 

FF 

JSR 

BASIN 

/Low-Byte Blockzahl 

958F 

85 

63 


STA 

$6 3 


9591 

20 

OF 

FF 

JSR 

BASIN 

/High-Byte Blockzahl 

9594 

85 

62 


STA 

$62 


9596 

20 

40 

80 

JSR 

SINTOUT 

/Integer-Wert ausgeben 

9599 

20 

OF 

FF 

JSR 

BASIN 

/Zeichen Dateiname 

959C 

A6 

90 


LDX 

$90 

/Statusbyte ST 

959E 

FO 

OF 


BEQ 

$95AF 

/=0, dann weiter 

95A0 

20 

00 

FF 

JSR 

OLROH 

/Kanaele schliessen 

95A3 

A9 

01 


LDA 

#$01 


95A5 

20 

03 

FF 

JSR 

OLOSE 

/Datei #1 schliessen 

95A8 

20 

00 

FF 

JSR 

OLROH 

/Kanaele schliessen 

95AB 

58 



OLI 



95AC 

40 

2A 

82 

JMP 

ENDSMB 

/Befehl fertig 

95AF 

20 

D2 

FF 

JSR 

BSOUT 

/Zeichen ausgeben 

95B2 

09 

22 


OMP 

#$22 

/AnfuehrungsZeichen 

95B4 

DO 

E3 


BNE 

$9599 

/nein, dann Schleife 

95B6 

20 

OF 

FF 

JSR 

BASIN 

/naechstes Zeichen 

95B9 

20 

D2 

FF 

JSR 

BSOUT 

/ausgeben 

95BC 

09 

00 


OMP 

#$00 

/Ze i lenende 

95BE 

DO 

F6 


BNE 

$95B6 

/nein, dann Schleife 

95C0 

A9 

OD 


LDA 

#$0D 

/Garriage Return 

95C2 

20 

D2 

FF 

JSR 

BSOUT 

/ausgeben 

9505 

40 

86 

95 

JMP 

$9586 

/Schleife 

BEFMMOB: 






9508 

20 

02 

82 

JSR 

SGETBYTN 

/Sprite-Nr. holen 

950B 

8E 

BB 

05 

STX 

M0BNR2 


950E 

8E 

BO 

05 

STX 

MOB NR 


95D1 

OE 

BB 

05 

ASL 

M0BNR2 

/in M0BNR2 doppelte Nr. 

95D4 

20 

31 

80 

JSR 

SOHKOOM 

/Komma ? 

95D7 

A5 

7A 


LDA 

$7A 
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95D9 

DO 

02 


BNE 

$95DD 


95DB 

06 

7B 


DEO 

$7B 


95DD 

06 

7A 


DEO 

$7A ;Basic-Zeiger um 1 verminder 

95DF 

20 

59 

93 

OSR 

GETXYXYF 

;AX,AY,EX,EY und $F7 hole 

95E2 

A5 

F7 


EDA 

$F7 

;Vergroesserungsbyte 

95E4 

DO 

09 


BNE 

$95EF 

;nicht null, dann weiter 

95E6 

20 

5B 

80 

OSR 

MOBEXL 

;Vergr. X-Ri. loeschen 

95E9 

20 

68 

80 

OSR 

MOBEYL 

;Vergr. Y-Ri. loeschen 

95EC 

40 

OF 

96 

OMP 

$960F 

95EF 

09 

01 


OMP 

#$01 


95F1 

DO 

09 


BNE 

$95F0 

,-nicht 1, dann weiter 

95F3 

20 

41 

80 

OSR 

MOBEXS 

;Vergr. X-Ri. setzen 

95F6 

20 

68 

80 

OSR 

MOBEYL 

;Vergr. Y-Ri. loeschen 

95F9 

40 

OF 

96 

OMP 

$960F 

95FC 

09 

02 


OMP 

#$02 


95FE 

DO 

09 


BNE 

$9609 

/nicht 2, dann weiter 

9600 

20 

5B 

80 

OSR 

MOBEXL 

;Vergr. X-Ri. loeschen 

9603 

20 

4E 

80 

OSR 

MOBEYS 

;Vergr. Y-Ri. setzen 

9606 

40 

OF 

96 

OMP 

$960F 

9609 

20 

41 

80 

OSR 

MOBEXS 

;Vergr. X-Ri. setzen 

9600 

20 

4E 

80 

OSR 

MOBEYS 

;Vergr. Y-Ri. setzen 

960 F 

20 

FO 

81 

OSR 

SGETBYTO 

;speed holen 

9612 

8E 

B5 

05 

STX 

MOBSPEED 

9615 

A9 

FO 


LDA 

#$F0 


9617 

8D 

B4 

05 

STA 

MOBBEW 

;Flag setzen 

961A 

20 

AO 

A3 

OSR 

MOBBEWEG 

/Sprite bewegen 

961D 

A9 

00 


LDA 

#$00 

961F 

8D 

B4 

05 

STA 

MOBBEW 

/Flag loeschen 

9622 

40 

2A 

82 

OMP 

ENDSMB 

/Befehl fertig 

MOBPOSS: 






9625 

A5 

09 


LDA 

$09 

/neue X-Position Low 

9627 

A2 

00 


LDX 

#$00 


9629 

EO 

B5 

05 

OPX 

MOBSPEED 

/ Verzoegerungsschleife 

9620 

FO 

OB 


BEQ 

$9639 

/fertig, dann weiter 

962E 

E8 



INX 


/auesseren Zaehler 

962F 

AO 

00 


LDY 

#$00 


9631 

00 

OA 


OPY 

#$0A 


9633 

FO 

F4 


BEQ 

$9629 

/auessere Schleife 

9635 

08 



INY 


/ innerer Zaehler 

9636 

40 

31 

96 

OMP 

$9631 

/innere Schleife 

9639 

AO 

BB 

05 

LDY 

M0BNR2 

/Sprite-Nr. * 2 

9630 

99 

00 

DO 

STA 

VIGMX,Y 

/X-Position setzen 

963F 

A5 

OA 


LDA 

$0A 

/X-Position high 

9641 

09 

01 


OMP 

#$01 

9643 

DO 

15 


BNE 

$965A 

/nicht 1, dann weiter 




Kommentiertes Assembler-Listing 


175 


9645 

AC 

BC 

C5 

LDY 

MOB NR 

9648 

AD 

10 

DO 

LDA 

VICMX8 

964B 

19 

78 

97 

OKA 

MBITTABS,Y ;X8-Bit setzen 

964E 

8D 

10 

DO 

STA 

VICMX8 ;X-Uebertragsregister 

9651 

A5 

A4 


LDA 

$A4 ;neue Y-Koorclinate 

9653 

AC 

BB 

C5 

LDY 

M0BNR2 

9656 

99 

01 

DO 

STA 

VICMY,Y ;Y-Koorcl. setzen 

9659 

60 



RTS 


965A 

AC 

BC 

C5 

LDY 

MOBNR 

965D 

AD 

10 

DO 

LDA 

VICMX8 

9660 

39 

80 

97 

AND 

MBITTABL,Y ;X8-Bit loeschen 

9663 

8D 

10 

DO 

STA 

VICMX8 

9666 

4C 

51 

96 

3MP 

$9651 /weiter wie oben 

BEFBFLASH: 





9669 

A9 

OA 


LDA 

#$0A 

966B 

8D 

DB 

C5 

STA 

BFLASH3N ;BFLASH-Flag setzen 

966E 

20 

02 

82 

OSR 

SGETBYTN ;speed holen 

9671 

EO 

00 


CPX 

#$00 

9673 

DO 

08 


BNE 

$9670 /nicht null, dann weitei 

9675 

A9 

00 


LDA 

#$00 

9677 

8D 

DB 

C5 

STA 

BFLASHON /Flag loeschen 

967A 

4C 

2A 

82 

OMP 

ENDSMB /Befehl fertig 

967D 

8E 

D7 

C5 

STX 

BFLASHSP /speed setzen 

9680 

20 

FC 

81 

OSR 

SGETBYTC /l.Farbe holen 

9683 

8E 

D9 

C5 

STX 

BFLASHFl /speichern 

9686 

20 

FC 

81 

JSR 

SGETBYTC /2.Farbe holen 

9689 

8E 

DA 

C5 

STX 

BFLASHF2 /speichern 

968C 

A9 

00 


LDA 

#$00 

968E 

8D 

D8 

C5 

STA 

BFLZAE /Zaehler = 0 

9691 

4C 

2A 

82 

OMP 

ENDSMB /Befehl fertig 

SIRQ: 





/IRQ-Interrupt-Routine 

9694 

EE 

16 

C5 

INC 

ZAEIRQ /Zaehler erhoehen 

9697 

AD 

16 

C5 

LDA 

ZAEIRQ 

969A 

C9 

3C 


CMP 

#$3C /60 

9690 

DO 

08 


BNE 

$96A6 

969E 

EE 

17 

C5 

INC 

ZAESEC /Sekundenzaehler erhoeh 

96A1 

A9 

00 


LDA 

#$00 

96A3 

8D 

16 

C5 

STA 

ZAEIRQ /Zaehler annullieren 

96A6 

AD 

DB 

C5 

LDA 

BFLASHQN /BFLASH aktiv ? 

96A9 

C9 

OA 


CMP 

#$0A 

96AB 

DO 

2A 


BNE 

$96D7 /nein, dann weiter 

96AD 

EE 

D8 

C5 

INC 

BFLZAE /Zaehler erhoehen 

96B0 

AD 

D8 

C5 

LDA 

BFLZAE 

96B3 

CD 

D7 

C5 

CMP 

BFLASHSP /gleich Speedwert ? 

96B6 

DO 

IF 


BNE 

$96D7 /nein, dann weiter 

96B8 

A9 

00 


LDA 

#$00 

96BA 

8D 

D8 

C5 

STA 

BFLZAE /Zaehler = 0 


;Zaeh 1er = 0 
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96BD 

38 



SEC 



96BE 

AO 

20 

00 

LOA 

VICRAFAR 

;akt. Rahmenfarbe 

96C1 

E9 

FO 


SBC 

#$F0 


96C3 

CO 

09 

C5 

CMP 

BFLASHFl 

;gleich 1.Farbe ? 

96C6 

FO 

09 


BEQ 

$9601 

;ja, dann weiter 

96C8 

AO 

09 

C5 

LOA 

BFLASHFl 

;1. Farbe 

96CB 

80 

20 

00 

STA 

VICRAFAR 

;setzen 

96CE 

4C 

07 

96 

JMP 

$9607 


96D1 

AO 

OA 

C5 

LOA 

BFLASHF2 

;2.Farbe 

96D4 

80 

20 

00 

STA 

VICRAFAR 

;setzen 

96D7 

4C 

02 

97 

OMP 

SIRQ2 

;Fortsetzung 

iEFMOBSET: 






96DA 

20 

02 

82 

OSR 

SGETBYTN 

;Sprite-Nr. holen 
;in $AA speichern 

96DD 

86 

AA 


STX 

$AA 

96DF 

AO 

15 

00 

LOA 

VICMEA 

;Sprite-Ein/Aus-Reg. 

96 E2 

10 

78 

97 

ORA 

MBITTABS,X ;Bit setzen 

96E5 

80 

15 

00 

STA 

VICMEA 


96E8 

20 

FC 

81 

3 SR 

SGETBYTC 

;Blocknr. holen 

96EB 

A4 

AA 


LOY 

$AA 

;Sprite-Nr. 

96ED 

AO 

88 

02 

LOA 

VIORAMHI 

;Video-RAM Lage 

96F0 

C9 

CC 


CMP 

#$cc 

;$CC (nach MEM) 

96F2 

FO 

OE 


BEQ 

$9702 

;ja, dann zu $9702 

96F4 

AO 

B3 

C5 

LOA 

GMEMFLAG 

;Flag bei Hires 

96F7 

C9 

OA 


CMP 

#$0A 

96F9 

00 

OE 


BNE 

$9709 

;nein, dann weiter 

96FB 

8A 



TXA 


; Blocknr. 

96FC 

99 

F8 

C3 

STA 

$C3F8, Y 

;Blockregister, wenn 
;Video-RAM bei $C000 

96FF 

4C 

00 

97 

3MP 

$9700 


9702 

8A 



TXA 


; Blocknr. 

9703 

99 

F8 

CF 

STA 

$CFF8,Y 

;Reg,wenn VidRAM b. $CCOO 

9706 

4C 

00 

97 

3MP 

$9700 

9709 

8A 



TXA 


; Blocknr. 

970A 

99 

F8 

07 

STA 

$07F8,Y 

;Reg,wenn VidRAM b. $0400 

9700 

20 

FC 

81 

3SR 

SGETBYIC 

;Farbe holen 

9710 

A4 

AA 


LOY 

$AA 

;Spr itenr. 

9712 

8A 



TXA 


9713 

99 

27 

00 

STA 

VICMFA,Y 

;Farbe setzen 

9716 

20 

FC 

81 

OSR 

SGEIBYTC 

;Prioritaet holen 

9719 

EO 

01 


CPX 

#$01 


971B 

00 

OE 


BNE 

$972B 

;nicht 1, dann weiter 

9710 

AO 

IB 

00 

LOA 

VICMPR 

;Prioritaetsregister 

9720 

A6 

AA 


LOX 

$AA 

9722 

10 

78 

97 

ORA 

MBITTABS,X ; Bit setzen 

9725 

80 

IB 

00 

STA 

VICMPR 


9728 

4C 

36 

97 

OMP 

$9736 
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972B 

AD 

IB 

DO 

LDA 

VICMPR 

972E 

A6 

AA 


LDX 

$AA 

9730 

3D 

80 

97 

AND 

MBITTABL,X ;Bit loeschen 

9733 

80 

IB 

DO 

STA 

VICMPR 

9736 

20 

FC 

81 

OSR 

SGETBYTC ;Art holen 

9739 

EO 

01 


CPX 

#$01 ;Multi-Colour-Spr ite ? 

973B 

DO 

OE 


BNE 

$974B ;nein, dann weiter 

9730 

AD 

IC 

DO 

LDA 

VICMMC ;Multi-Colour-Registe 

9740 

A6 

AA 


LDX 

$AA 

9742 

ID 

78 

97 

ORA 

MBITTABS,X ;Bit setzen 

9745 

8D 

IC 

DO 

STA 

VICMMC 

9748 

4C 

2A 

82 

OMP 

ENDSMB ,-Befehl fertig 

974B 

A6 

AA 


LDX 

$AA 

9740 

AD 

IC 

DO 

LDA 

VICMMC 

9750 

3D 

80 

97 

AND 

MBITTABL,X ;Bit loeschen 

9753 

8D 

IC 

DO 

STA 

VICMMC 

9756 

4C 

2A 

82 

OMP 

ENDSMB ;Befehl fertig 

BEFMUSIC: 





9759 

20 

02 

82 

OSR 

SGETBYTN ,-Dauer holen 

975C 

8E 

96 

CB 

STX 

MUSICDAU ;speichern 

975F 

20 

31 

80 

OSR 

SCHKCOM ;Komma ? 

9762 

20 

B7 

86 

OSR 

SGETSTR ,-String holen 

9765 

8E 

9B 

CB 

STX 

MUSICADR ;Stringadresse speichern 

9768 

8D 

9C 

CB 

STA 

MUSICADR+1 

976B 

AO 

00 


LDY 

#$00 

9760 

8C 

9D 

CB 

STY 

MUSICZl ,-Zaehler = 0 

9770 

A5 

69 


LDA 

$69 ;Laenge des Strings 

9772 

8D 

9E 

CB 

STA 

MUSICLEN 

9775 

4C 

2A 

82 

OMP 

ENDSMB ,-Befehl fertig 

MBITTABS: 





9778 

01 

02 

04 

08 10 

20 40 80 ,-Tabelle zum Bit-Setzen 

MBITTABL: 





9780 

FE 

FD 

FB 

F7 EF 

DF BF 7F ,-Tabelle zum Bit-Loeschen 

BITWTAB: 





9788 

80 

40 

20 

10 08 

04 02 01 ,-Tab. der Bit-Werigke iten 

BEFFLASH: 





9790 

A9 

OA 


LDA 

#$0A 

9792 

8D 

C6 

C5 

STA 

FLASHFL ;Flag setzen 

9795 

20 

02 

82 

OSR 

SGETBYTN ;Farbe holen 

9798 

EO 

10 


CPX 

#$10 

979A 

BO 

18 


BCS 

$97B4 ,-groesser 16, dann fertig 

979C 

A9 

OA 


LDA 

#$0A 

979E 

9D 

04 

C5 

STA 

FLASHFLS,X ;Flag fuer diese Farbe 

97A1 

AO 

00 


LDY 

#$00 
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97A3 

Bl 

7A 


LDA 

($7A),Y 

;akt. Basic-Oode 

97A5 

C9 

20 


OMP 

#$20 

(•folgt Komma ? 

97A7 

DO 

OB 


BNE 

$97B4 

;nein( dann fertig 

97A9 

20 

02 

82 

OSR 

SGETBYTN 

;speed holen 

97AC 

8E 

04 

05 

STX 

FLASHSP 

;speiehern 

97AF 

A9 

00 


LDA 

#$00 


97B1 

8D 

05 

05 

STA 

FLASHZAE 

(■Zaehler = 0 

97B4 

40 

2A 

82 

OMP 

ENDSMB 

(•Befehl fertig 

FNAT: 







97B7 

20 

02 

82 

OSR 

SGETBYTN 

(■holt Spalte 

97BA 

8A 



TXA 


(•Spalte retten 

97BB 

48 



PHA 



97BC 

20 

FO 

81 

OSR 

SGETBYTG 

(•holt Zeile nach X 

97BF 

18 



OLO 



97C0 

68 



PLA 



97C1 

A8 



TAY 


(•Spalte in Y 

97C2 

20 

FO 

FF 

OSR 

$FFFO 

(•Oursor setzen 

97C5 

20 

7F 

80 

OSR 

SGHKKLZ 

(•Klammer zu ? 

97C8 

A9 

00 


LDA 

#$00 


97CA 

85 

OD 


STA 

$0D 

(•Stringflag loeschen 

97CC 

20 

79 

00 

OSR 

GHRGOT 

(•letzten Oode holen 

97CF 

40 

94 

80 

OMP 

$8094 

(•zur Auswertung eines 







(•arithmetischen Elements 

SIRQ2: 





(■Fortsetzung der IRQ-Routine 

97D2 

A5 

FF 


LDA 

$FF ;$F0 bis $FF retten 

97D4 

48 



PHA 



97D5 

A5 

FE 


LDA 

$FE 


97D7 

48 



PHA 



97D8 

A5 

FD 


LDA 

$FD 


97DA 

48 



PHA 



97DB 

A5 

FO 


LDA 

$F0 


97DD 

48 



PHA 



97DE 

AD 

06 

05 

LDA 

FLASHFL 

(•FLASH aktiv ? 

97E1 

09 

OA 


OMP 

#$0A 


97E3 

FO 

03 


BEQ 

$97E8 

;ja, dann weiter 

97E5 

40 

50 

98 

OMP 

SIRQ3 

(•zur Fortsetzung 

97E8 

EE 

05 

05 

INO 

FLASHZAE 

(■Zaehler erhoehen 

97EB 

AD 

05 

05 

LDA 

FLASHZAE 


97EE 

OD 

04 

05 

OMP 

FLASHSP 

(•gleich speed ? 

97F1 

FO 

03 


BEQ 

$97F6 

; ja ( dann weiter 

97F3 

40 

50 

98 

OMP 

SIRQ3 

(•zur Fortsetzung 

97F6 

A9 

D8 


LDA 

#$D8 

;$FE($FF auf $D800 

97F8 

85 

FF 


STA 

$FF 


97FA 

A9 

00 


LDA 

#$00 


97FC 

85 

FE 


STA 

$FE 


97FE 

AD 

88 

02 

LDA 

VIDRAMHI 


9801 

85 

FD 


STA 

$FD 

;$FO($FD auf Video-RAM 
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9803 

A9 

00 


LOA 

#$00 


9805 

80 

05 

05 

STA 

FLASHZAE 

;Zaehler = 0 

9808 

85 

FO 


STA 

$F0 


980A 

A8 



TAY 



980B 

Bl 

FE 


LOA 

($FE) ,Y 

;Zelle des Farb-RAM 

9800 

29 

OF 


ANO 

#$0F 


980F 

AA 



TAX 


;Farb-Oode nach X 

9810 

BO 

04 

05 

LOA 

FLASHFLS, 

X ;Flag fuer diese Farbe 

9813 

FO 

06 


BEQ 

$981B 

;nicht ges., dann weiter 

9815 

Bl 

FO 


LOA 

($FO),Y 

;Zelle aus Video-RAM 

9817 

49 

80 


EOR 

#$80 

;Bit 7 invert. (RVS) 

9819 

91 

FO 


STA 

($FO),Y 


981B 

E6 

FE 


INO 

$FE 

;$FE,$FF erhoehen 

9810 

00 

02 


BNE 

$9821 


981F 

E6 

FF 


INO 

$FF 


9821 

E6 

FO 


INO 

$F0 

;$FO,$FO erhoehen 

9823 

00 

02 


BNE 

$9827 


9825 

E6 

FO 


INO 

$F0 


9827 

A5 

FF 


LOA 

$FF 


982 9 

09 

OB 


OMP 

#$0B 

;Endekriterium low 

982B 

00 

OE 


BNE 

$980B 

;nein, dann Schleife 

9820 

A5 

FE 


LOA 

$FE 


982F 

09 

E8 


OMP 

#$E8 

;Endekrtiterium high 

9831 

00 

08 


BNE 

$980B 

;nein, dann Schleife 

9833 

40 

50 

98 

OMP 

SIRQ3 

;zur IRQ-Fortsetzung 

BEFRAGE: 






9836 

20 

02 

82 

OSR 

SGETBYTN 

;holt Wert 

9839 

EO 

00 


OPX 

#$00 


983B 

00 

08 


BNE 

$9845 

,-nicht null, dann weiter 

9830 

A9 

01 


LOA 

#$01 


983F 

80 

80 

05 

STA 

PAGEFLAG 

;Flag =1 

9842 

40 

2A 

82 

OMP 

ENOSMB 

/Befehl fertig 

9845 

A9 

OA 


LOA 

#$0A 


9847 

80 

80 

05 

STA 

PAGEFLAG 

;Flag = $0A (aktiv) 

984A 

8E 

80 

05 

STX 

PAGEWERT 

/Wert speichern 

9840 

40 

2A 

82 

OMP 

ENOSMB 

/Befehl fertig 

SIRQ3: 







9850 

A5 

04 


LOA 

$04 

/"-Flag bei Eingabe 

9852 

FO 

03 


BEQ 

$9857 

/nicht ges, dann weiter 

9854 

40 

96 

98 

OMP 

SIRQ4 

/zur IRQ-Fortsetzung 

9857 

AO 

80 

02 

LOY 

SHGOGTFL 

/Shift/0=/0TRL-Flag 

985A 

B9 

92 

98 

LOA 

SHWERTTAB,Y ;entspr. Wert 

9850 

80 

06 

05 

STA 

INKEY 

/merken 

9860 

A5 

OB 


LOA 

$GB 

/gedrueckte Taste 

9862 

09 

04 


OMP 

#$04 

;F1 

9864 

FO 

26 


BEQ 

$9880 

/ja, dann weiter 

9866 

09 

05 


OMP 

#$05 

/F3 
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9868 

FO 

IC 


BEQ 

$9886 

986A 

C9 

06 


CMP 

#$06 

986C 

FO 

12 


BEQ 

$9880 

986E 

C9 

03 


CMP 

#$03 

9870 

FO 

08 


BEQ 

$987A 

9872 

A9 

00 


LOA 

#$00 

9874 

80 

06 

C5 

STA 

INKEY 

9877 

4C 

96 

98 

OMP 

SIRQ4 

987A 

EE 

06 

C5 

INC 

INKEY 

9870 

EE 

06 

C5 

INC 

INKEY 

9880 

EE 

06 

C5 

INC 

INKEY 

9883 

EE 

06 

C5 

INC 

INKEY 

9886 

EE 

06 

C5 

INC 

INKEY 

9889 

EE 

06 

C5 

INC 

INKEY 

9880 

EE 

06 

C5 

INC 

INKEY 

988F 

4C 

96 

98 

3MP 

SIRQ4 

SHWERTTAB; 





9892 

00 

01 

08 

09 

/ 

SIRQ4; 






9896 

A5 

CC 


LOA 

$CC 

9898 

FO 

03 


BNE 

$9890 

989A 

4C 

FF 

98 

3MP 

SIRQ5 

9890 

AO 

46 

C6 

LOA 

KEYFLAG 

98A0 

C9 

OA 


CMP 

#$0A 

98A2 

FO 

F6 


BEQ 

$989A 

98A4 

A5 

04 


LOA 

$04 

98A6 

00 

F2 


BNE 

$989A 

98A8 

A5 

CB 


LOA 

$CB 

98AA 

CO 

42 

C6 

CMP 

LASTKEY 

98A0 

FO 

48 


BEQ 

$98F7 

98AF 

A5 

08 


LOA 

$08 

9881 

00 

44 


BNE 

$98F7 

9883 

AO 

06 

C5 

LOA 

INKEY 

9886 

FO 

3F 


BEQ 

$98F7 

9888 

AO 

06 

C5 

LOA 

INKEY 

9888 

85 

FE 


STA 

$FE 

9880 

C9 

11 


CMP 

#$11 

98BF 

80 

36 


BCS 

$98F7 

98C1 

A9 

00 


LOA 

#$00 

98C3 

85 

FF 


STA 

$FF 

98C5 

C6 

FE 


OEC 

$FE 

98C7 

06 

FE 


ASL 

$FE 

98C9 

26 

FF 


ROL 

$FF 

98CB 

06 

FE 


ASL 

$FE 

98C0 

26 

FF 


ROL 

$FF 

98CF 

06 

FE 


ASL 

$FE 

9801 

26 

FF 


KOL 

$FF 


;ja ? 

;F5 
;ja ? 

;F7 
;ja ? 

,-keine Funktionstaste 

;zur IRQ-Fortsetzung 

;je nach Einsprungadresse 
;um 1 bis 7 erhoehen 


;zur IRQ-Fortsetzung 


belle fuer Shift und C= 


,-blinkt Cursor ? 

;ja, dann weiter 
,-sonst zur IRQ-Fortsetzung 

;Key-Disable-Flag 
;gesetzt 

;nein, zur IRQ-Fortsetzung 
; "-Flag 

(-gesetzt, dann zur IRQ-F. 
(-gedrueckte Taste 
(-gleich letzter Taste ? 
,-ja, dann weiter 
;Insert-Modus ? 

,-ja, dann weiter 
,-gedrueckte Funktionstaste 
,-keine, dann weiter 


;Fkt.-Tastennr groesser 16 
,-ja, dann weiter 
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ng 


98D3 

06 

FE 


ASL 

$FE 

98D5 

26 

FF 


ROL 

$FF ;$FE,$FF = 16 * FTastennr. 

98D7 

18 



OLO 


98D8 

A5 

FE 


LOA 

$FE 

98DA 

69 

40 


AOO 

#$40 

98DC 

85 

FE 


STA 

$FE 

98DE 

A5 

FF 


LOA 

$FF 

98E0 

69 

06 


AOO 

#$06 

98E2 

85 

FF 


STA 

$FF ;$FE,$FF = $FE,$FF + $0640 

98E4 

AO 

00 


LOY 

#$00 

98E6 

Bl 

FE 


LOA 

($FE),Y ,'Zeichen aus KEYTAB 

98E8 

FO 

OB 


BEQ 

$98F5 ;0, dann weiter 

98EA 

00 

OF 


OPY 

#$0F ;15 Zeichen ? 

98EC 

FO 

07 


BEQ 

$98F5 ;ja, dann weiter 

98EE 

99 

77 

02 

STA 

TASTPUFF,Y ,'Zeichen in Tast.puff. 

98F1 

08 



INY 

;naechstes Zeichen 

98F2 

40 

E6 

98 

OMP 

$98E6 ('Schleife 

98F5 

84 

06 


STY 

$06 ;Anz. Zeich. im Tast.puff. 

98F7 

A5 

OB 


LOA 

$0B ;gedrueckte Taste 

98F9 

80 

42 

06 

STA 

LASTKEY ('merken 

98FC 

40 

FF 

98 

OMP 

SIRQ5 ('(unsinnig) 

SIRQ5: 






98FF 

AO 

91 

OB 

LOA 

PLAYFLAG ,'PLAY aktiv ? 

9902 

09 

OA 


OMP 

#$0A 

9904 

00 

03 


BNE 

$9909 ('nein, dann weiter 

9906 

20 

61 

8A 

OSR 

SIRQPLAY 

9909 

68 



PLA 

;$F0 bis $FF wiederherst. 

990A 

85 

FO 


STA 

$F0 

9900 

68 



PLA 


9900 

85 

FO 


STA 

$F0 

990F 

68 



PLA 


9910 

85 

FE 


STA 

$FE 

9912 

68 



PLA 


9913 

85 

FF 


STA 

$FF 

9915 

40 

31 

EA 

OMP 

BIRQ ,'zur normalen IRQ-Routine 

BEF PLAY: 





9918 

20 

02 

82 

OSR 

SGETBYTN ,'Wert (0,1,2) holen 

991B 

EO 

02 


OPX 

#$02 

9910 

00 

00 


BNE 

$9920 ('nicht 2, dann weiter 

991F 

A9 

00 


LOA 

#$00 

9921 

80 

8A 

OB 

STA 

MUSI0Z4 ,'Zaehler = 0 

9924 

A9 

OA 


LOA 

#$0A 

9926 

80 

91 

OB 

STA 

PLAYFLAG ,'Flag setzen 

9929 

40 

2A 

82 

OMP 

ENOSMB ,'Befehl fertig 

9920 

EO 

01 


OPX 

#$01 

992E 

00 

11 


BNE 

$9941 ,-nicht 1, dann weiter 

9930 

A9 

00 


LOA 

#$00 
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9932 

8D 

8A 

CB 

STA 

MUSICZ4 

;Zaehler = 0 

9935 

A9 

OA 


EDA 

#$0A 


9937 

8D 

91 

CB 

STA 

PEAYFEAG 

;Flag setzen 

993A 

AD 

91 

CB 

EDA 

PEAYFEAG 

;Flag testen 

993D 

C9 

OA 


CMP 

#$0A 


993F 

FO 

F9 


BEQ 

$993A 

;noch ges., dann Schleife 

9941 

20 

DE 

8A 

OSR 

PEAYEND 

;Flag und Zaehlen ruecks. 

9944 

4C 

2A 

82 

OMP 

ENDSMB 

,-Befehl fertig 


BEFCENTRE: 


9947 

20 

DB 

83 

OSR 

INCBASBZ 

;Code uebenlesen 

994A 

20 

B7 

86 

OSR 

SGETSTR 

;String holen 

994D 

86 

AC 


STX 

$AC 

;Stringadr. nach $AC,$AD 

994F 

85 

AD 


STA 

$AD 


9951 

18 



CEC 



9952 

A9 

28 


EDA 

#$28 

;40 Spalten 

9954 

E5 

69 


SBC 

$69 

Stringlaenge 

9956 

85 

6A 


STA 

$6A 


9958 

46 

6A 


ESR 

$6A 

;((40 - Een) div 2) 

995A 

A9 

ID 


EDA 

#$1D 

(•Cursor right 

995C 

20 

D2 

FF 

OSR 

BSOUT 

(•ausgeben 

995F 

C6 

6A 


DEC 

$6A 

(•Zaehler vermindern 

9961 

A5 

6A 


EDA 

$6A 


9963 

C9 

FF 


CMP 

#$FF 

(•Zaehler abgelaufen ? 

9965 

DO 

F3 


BNE 

$995A 

;nein( dann Schleife 

9967 

AO 

00 


EDY 

#$00 


9969 

4C 

72 

99 

OMP 

$9972 

(•String ausgeben 

996C 

Bl 

AC 


EDA 

($AC) ,Y 

(•Zeichen aus String 

996E 

20 

D2 

FF 

OSR 

BSOUT 

(■ausgebe n 

9971 

C8 



INY 


(■naechstes Zeichen 

9972 

C4 

69 


CPY 

$69 

(•Stringlaenge erreicht ? 

9974 

DO 

F6 


BNE 

$996C 

;nein( dann Schleife 

9976 

4C 

2A 

82 

OMP 

ENDSMB 

(■Befehl fertig 


BEFENVELOPE: 


9979 

20 

02 

82 

OSR 

SGETBYTN 

(•Stimmenr. holen 

997C 

20 

6F 

9A 

OSR 

X123 

(•liegt X zw. 1 und 3 ? 

997F 

CA 



DEX 


9980 

86 

A6 


STX 

$A6 

(•Stimmenr. - 1 

9982 

20 

31 

80 

OSR 

SCHKCOM 

(•Komma ? 

9985 

A5 

7A 


EDA 

$7A 

(■Basic-Zeiger vermindern 

9987 

DO 

02 


BNE 

$998B 

9989 

C6 

7B 


DEC 

$7B 


998B 

C6 

7A 


DEC 

$7A 


998D 

20 

CC 

99 

OSR 

GET2NYB 

(•hole 2 Halbbytes (A(D) 

9990 

A5 

AA 


EDA 

$AA 

9992 

85 

A8 


STA 

$A8 

;AD in $A8 merken 

9994 

20 

31 

80 

OSR 

SCHKCOM 

(•Komma ? 

9997 

A5 

7A 


EDA 

$7A 

(•Basic-Zeiger vermindern 

9999 

DO 

02 


BNE 

$999D 
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999B 

C6 

7B 


DEC 

$7B 


999D 

C6 

7A 


DEC 

$7A 


999F 

20 

CG 

99 

JSR 

GET2NYB 

;2 Halbbytes (S,R) holen 

99A2 

06 

A6 


ASL 

$A6 

;Stimmenr. verdoppeln 

99A4 

A6 

A6 


LDX 

$A6 

;als Index in Tab. 

99A6 

BD 

54 

9A 

EDA 

SIDTAB,X 

/Registeradresse 

99A9 

85 

20 


STA 

$20 

;nach $20,$21 

99AB 

E8 



INX 



99AC 

BD 

54 

9A 

LDA 

SIDTAB,X 


99AF 

85 

21 


STA 

$21 


99B1 

46 

A6 


LSR 

$A6 

;Stimmnr. wieder halbieren 

99B3 

AO 

06 


LDY 

#$06 

;Offset fuer Sust./Release 

99B5 

A5 

AA 


LDA 

$AA 

;SR-Wert 

99B7 

91 

20 


STA 

($20),Y 

;setzen 

99B9 

A4 

A6 


LDY 

$A6 


99BB 

99 

AO 

CB 

STA 

SRTAB, Y 

;in Tabelle ablegen 

99BE 

AO 

05 


LDY 

#$05 

;Offset fuer Attack/Decay 

99C0 

A5 

A8 


LDA 

$A8 

;AD-Wert 

99C2 

91 

20 


STA 

($20),Y 

;setzen 

99C4 

A4 

A6 


LDY 

$A6 


99C6 

99 

A4 

CB 

STA 

ADTAB,Y 

;in Tabelle ablegen 

99C9 

40 

2A 

82 

OMP 

ENDSMB 

;Befehl fertig 

GET2NYB: 





;hole 2 Werte von 0-15 

99CC 

20 

02 

82 

OSR 

SGETBYTN 

;hole Byte-Wert 

99CF 

20 

6A 

9A 

OSR 

XNYB 

; liegt X zw. 0 und 15 ? 

99D2 

86 

AA 


STX 

$AA 


99D4 

06 

AA 


ASL 

$AA 


99D6 

06 

AA 


ASL 

$AA 


99D8 

06 

AA 


ASL 

$AA 


99DA 

06 

AA 


ASL 

$AA 

;Wert = Wert * 16 

99DC 

20 

02 

82 

OSR 

SGETBYTN 

;hole 2. Byte-Wert 

99DF 

20 

6A 

9A 

OSR 

XNYB 

/liegt X zw. 0 und 15 ? 

99E2 

8A 



TXA 



99E3 

05 

AA 


ORA 

$AA 

;mit (16 * l.Wert) Odern 

99E5 

85 

AA 


STA 

$AA 

;in $AA ablegen 

99E7 

60 



RTS 



BEFCGOTO: 






99E8 

20 

DB 

83 

JSR 

INCBASBZ 

/Code ueberlesen 

99EB 

20 

OD 

80 

3 SR 

SFRMNUM 

/Wert holen 

99EE 

20 

16 

80 

3SR 

SFACADR 

/in Adressformat umrechnen 

99F1 

20 

OF 

81 

3 SR 

SGOTOll 

/GOTO-Befehl durchfuehren 

99F4 

4C 

2A 

82 

3MP 

ENDSMB 

/Befehl fertig 

BEFWAVE; 






99F7 

20 

02 

82 

3SR 

SGETBYTN 

/hole Stimmnr. 

99FA 

20 

6F 

9A 

3 SR 

X123 

/zwischen 1 und 3 ? 

99FD 

CA 



DEX 



99FE 

86 

AA 


STX 

$AA 

/Stimmnr. - 1 nach $AA 

9A00 

20 

31 

80 

3 SR 

SCHKCOM 

/Komma ? 
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9A03 

20 

09 

9A 

OSR 

BINOON 

;Binaeren Ausdruck holen 

9A06 

4C 

35 

9A 

JMP 

$9A35 

(■Fortsetzung s.u. 

BINCON 







9A09 

A9 

00 


LDA 

#$00 


9A0B 

85 

A6 


STA 

$A6 

;Bitzaehler 

9A0D 

85 

A8 


STA 

$A8 

(•Ergebnis 

9A0F 

AO 

00 


LDY 

#$00 


9A11 

Bl 

7A 


LDA 

($7A),Y 

;akt. Basic-Zeichen 

9A13 

C9 

30 


OMP 

#$30 

; ”0“ 

9A15 

FO 

12 


BEQ 

$9A29 

(•ja ? 

9A17 

C9 

31 


OMP 

#$31 

/ 1' 

9A19 

FO 

05 


BEQ 

$9A20 

(■ja ? 

9A1B 

A9 

04 


LDA 

#$04 

;Nr. f. 'not binary char' 

9A1D 

40 

80 

88 

OMP 

SERROUT 

(■Fehlermeldung ausgeben 

9A20 

A4 

A6 


LDY 

$A6 

9A22 

A5 

A8 


LDA 

$A8 


9A24 

19 

88 

97 

ORA 

BITWTAB, 

Y ;Ergebnis mit Wert Odern 

9A27 

85 

A8 


STA 

$A8 

9A29 

E6 

A6 


INO 

$A6 

(■Bitzaehler erhoehen 

9A2B 

20 

DB 

83 

OSR 

INOBASBZ 

(■naechstes Zeichen lesen 

9A2E 

A5 

A6 


LDA 

$A6 


9A30 

09 

08 


OMP 

#$08 

;8 Zeichen gelesen ? 

9A32 

DO 

DB 


BNE 

$9A0F 

;nein( dann Schleife 

9A34 

60 



RTS 




; Fortsetzung 

von 

BEFWAVE 


9A35 

06 

AA 


ASL 

$AA 

(■Stimmnr. verdoppeln 

9A37 

A4 

AA 


LDY 

$AA 

(■als Zeiger in SIDTAB 

9A39 

B9 

54 

9A 

LDA 

SIDTAB(Y 


9A30 

85 

20 


STA 

$2Q 

;$20($21 auf SID-Reg. 

9A3E 

08 



INY 



9A3F 

B9 

54 

9A 

LDA 

SIDTAB(Y 


9 A4 2 

85 

21 


STA 

$21 


9A44 

AO 

04 


LDY 

#$Q4 

(■Qffset fuer Waveform 

9A46 

A5 

A8 


LDA 

$A8 

(■Wert fuer Waveform 

9A48 

91 

20 


STA 

($2Q)(Y 

;setzen 

9A4A 

46 

AA 


LSR 

$AA 


9A40 

A4 

AA 


LDY 

$AA 


9A4E 

99 

4A 

06 

STA 

WAVETAB(Y 

(in Tabelle ablegen 

9A51 

40 

2A 

82 

OMP 

ENDSMB 

(■Befehl fertig 

SIDTAB; 







9A54 

00 

D4 

07 

D4 OE 

D4 

(■Tabelle der SID-Reg.-Adr 

DSOBMOUT; 






9A5A 

AO 

00 


LDY 

#$0Q 


9A50 

B9 

A3 

86 

LDA 

$86A3(Y 

(Zeich. a. Meid, 'ds-cbm' 

9A5F 

FO 

06 


BEQ 

$9A67 

(■Ende ? 

9A61 

20 

D2 

FF 

OSR 

BSQUT 

(■Zeichen ausgeben 

9A64 

08 



INY 


(■naechstes Zeichen 
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9A65 

DO 

F5 


BNE 

$9A50 

;Schleife 

9A67 

4C 

74 

91 

OMP 

BEFO 

; zum Leerbefehl 

XNYB: 







9A6A 

EO 

10 


OPX 

#$10 

;X kleiner als 16 ? 

9A6C 

BO 

OA 


BOS 

$9A78 

;nein, dann Fehler 

9A6E 

60 



RTS 



X123: 







9A6F 

EO 

04 


OPX 

#$04 

;X kle iner als 4 ? 

9A71 

BO 

05 


BOS 

$9A78 

;nein, dann Fehler 

9A73 

EO 

00 


OPX 

#$00 

;X=0 ? 

9A75 

FO 

01 


BEQ 

$9A78 

;ja, dann Fehler 

9A77 

60 



RTS 


9A78 

A9 

00 


LDA 

#$00 

;Nr. f. ’bad mode' 

9A7A 

4C 

80 

88 

OMP 

SERROUT 

(•Fehler ausgeben 

; P u nk t 

im 

Multi- 

Oolour 

-Modus 


9A7D 

A5 

F7 


LDA 

$F7 

;Punktfarbe 

9A7F 

C9 

OB 


OMP 

#$0B 


9A81 

FO 

40 


BEQ 

$9A0F 

;=11, dann weiter 

9A83 

C9 

00 


OMP 

#$00 


9A8 5 

DO 

06 


BNE 

$9A8D 

(•nicht 0, dann weiter 

9A87 

20 

B4 

9A 

OSR 

GBITOLR 

(•l.Bit loeschen 

9A8A 

4C 

B4 

9A 

OMP 

GBITOLR 

;2.Bit loeschen 

9A8D 

09 

01 


OMP 

#$01 


9A8F 

DO 

06 


BNE 

$9A97 

(•nicht 1, dann weiter 

9A91 

20 

B4 

9A 

OSR 

GBITOLR 

(•l.Bit loeschen 

9A94 

40 

AB 

9A 

JMP 

GBITSET 

;2.Bit setzen 

9A97 

09 

02 


OMP 

#$02 


9A99 

DO 

06 


BNE 

$9AA1 

(•nicht 2( dann weiter 

9A9B 

20 

AB 

9A 

OSR 

GBITSET 

(•l.Bit setzen 

9A9E 

40 

B4 

9A 

OMP 

GBITOLR 

;2.Bit loeschen 

9AA1 

09 

03 


OMP 

#$03 


9AA3 

DO 

18 


BNE 

$9ABD 

(•nicht 3( dann weiter 

9AA5 

20 

AB 

9A 

3 SR 

GBITSET 

(•l.Bit setzen 

9AA8 

40 

AB 

9A 

OMP 

GBITSET 

;2.Bit setzen 

GBITSET: 





(•setzt Bit im Grafik-RAM 

9AAB 

Bl 

A8 


LDA 

($A8),Y 

(•Zelle im Grafik-RAM 

9AAD 

ID 

30 

93 

ORA 

GBITTABS,X ;mit Bit oderieren 

9AB0 

91 

A8 


STA 

($A8),Y 


9AB2 

E8 



INX 


(•naechstes Bit anpeilen 

9AB3 

60 



RTS 


GBITCLR: 





(•loescht Bit im Grafik-RAM 

9AB4 

Bl 

A8 


LDA 

($A8),Y 

(•Zelle im Grafik-RAM 
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9AB6 

3D 

40 

93 

AND 

GBITTABL,X ;entspr. Bit loeschen 

9AB9 

91 

A8 


STA 

($A8),Y 

9ABB 

E8 



INX 

;naechstes Bit anpeilen 

9ABC 

60 



RTS 


9ABD 

C9 

04 


CMP 

#$04 

9ABF 

DO 

OE 


BNE 

$9ACF ,-nicht 4, dann weiter 

(Punkt 

'invertieren' 


9AC1 

Bl 

A8 


LDA 

($A8),Y 

9AC3 

5D 

30 

93 

EOR 

GBITTABS,X ;l.Bit invertieren 

9AC6 

91 

A8 


STA 

($A8),Y ,-(unsinnig) 

9AC8 

E8 



INX 


9AC9 

5D 

30 

93 

EOR 

GBITTABS,X ;2.Bit invertieren 

9ACC 

91 

A8 


STA 

($A8),Y 

9ACE 

60 



RTS 


;P unkt 

testen 



9ACF 

Bl 

A8 


LDA 

($A8) ,Y 

9AD1 

30 

30 

93 

AND 

GBITTABS,X ;l.Bit ? 

9AD4 

FO 

04 


BEQ 

$9ADA ;=0,dann weiter 

9AD6 

A9 

02 


LDA 

#$02 

9AD8 

85 

90 


STA 

$90 ;ST = 2 

9ADA 

E8 



INX 

/Zeiger auf 2.Bit 

9ADB 

Bl 

A8 


LDA 

($A8) ,Y 

9ADD 

30 

30 

93 

AND 

GBITTABS,X 

9AE0 

FO 

06 


BEQ 

$9AE8 ;=0,dann weiter 

9AE2 

A5 

90 


LDA 

$90 

9AE4 

09 

01 


ORA 

#$01 ;ST = ST or 1 

9AE6 

85 

90 


STA 

$90 

9AE8 

60 



RTS 


INCA6A7: 




;$A6,$A7 erhoehen 

9AE9 

E6 

A6 


INC 

$A6 

9AEB 

DO 

02 


BNE 

$9AEF 

9AED 

E6 

A7 


INC 

$A7 

9AEF 

60 



RTS 


INCA8A9: 




;$A8,$A9 erhoehen 

9AF0 

E6 

A8 


INC 

$A8 

9AF2 

DO 

02 


BNE 

$9AF6 

9AF4 

E6 

A9 


INC 

$A9 

9AF6 

60 



RTS 


BEFREPEAT 





9AF7 

AC 

17 

C6 

LDY 

SPREPEAT /Stackpointer f. REPEAT 

9AFA 

CO 

09 


CPY 

#$09 /kleiner als 9 ? 

9AFC 

90 

05 


BCC 

$9B03 /ja, dann weiter 

9AFE 

A9 

09 


LDA 

#$09 /Nr. F. 'stack too large' 

9B00 

4C 

8C 

00 

00 

OMP 

SERROUT /Fehler ausgeben 
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9B03 

08 



INY 


;Pointer erhoehen 

9B04 

A5 

7A 


LDA 

$7A 

; Basic-Zeiqer auf 

9B06 

99 

03 

06 

STA 

STAOKREPEAT,Y ;Stapel legen 

9B09 

08 



INY 



9B0A 

A5 

7B 


LDA 

$7B 


9B0C 

99 

03 

06 

STA 

STAOKREPEAT,Y 

9B0F 

80 

17 

06 

STY 

SPREPEAT 

;StapeIzeiger speichern 

9B12 

40 

74 

91 

OMP 

BEFO 

;zum Leerbefehl 

BEFUNTIL: 






9B15 

20 

DB 

83 

OSR 

INOBASBZ 

;Gode ueberlesen 

9B18 

AD 

17 

06 

LDA 

SPREPEAT 

;REPEAT-Stack 

9B1B 

09 

02 


OMP 

#$02 

;groesser gleich 2 ? 

9B1D 

BO 

05 


BOS 

$9B24 

;Ja, dann weiter 

9B1F 

A9 

08 


LDA 

#$08 

;Nr. f. 'until without r. 

9B21 

40 

80 

88 

OMP 

SERROUT 

/Fehler ausgeben 

9B24 

20 

3A 

80 

OSR 

SFRMEVL 

/Ausdruck holen 

9B27 

20 

79 

00 

OSR 

OHRGOT 

/letzten Basic-Gode 

9B2A 

A5 

61 


LDA 

$61 

/Exponent von FAG 

9B2C 

FO 

09 


BEQ 

$9B37 

/null, dann weiter 

9B2E 

OE 

17 

06 

DEO 

SPREPEAT 

/Stapelzeiger - 2 

9B31 

OE 

17 

06 

DEO 

SPREPEAT 

9B34 

40 

2A 

82 

OMP 

ENDSMB 

/Befehl fertig 

9B37 

AO 

17 

06 

LDY 

SPREPEAT 

/StapeIzeiqer f. REPEAT 

9B3A 

B9 

03 

06 

LDA 

STAOKREPEAT,Y 

9B3D 

85 

7B 


STA 

$7B 

/Basic-Programmzaehle mit 

9B3F 

88 



DEY 


/Inhalt vom Stapel laden 

9B40 

B9 

03 

06 

LDA 

STAOKREPEAT,Y 

9B43 

85 

7A 


STA 

$7A 


9B45 

40 

74 

91 

OMP 

BEFO 

/zum Leerbefehl 

BEFRETRACE: 





9B48 

AE 

01 

06 

LDX 

TRAOEFLAG ;TRAGE aktiv ? 

9B4B 

EO 

OA 


OPX 

#$0A 


9B4D 

FO 

05 


BEQ 

$9B54 

/ja, dann weiter 

9B4F 

A9 

00 


LDA 

#$00 

/Nr. f. ‘bad mode' 

9B51 

40 

80 

88 

OMP 

SERROUT 

/Fehler ausgeben 

9B54 

20 

E9 

89 

OSR 

TRAGESHl 

/Trace-Fenster malen 

9B57 

40 

74 

91 

OMP 

BEFO 

/zum Leerbefehl 

BEFTRACE: 






9B5A 

20 

02 

82 

OSR 

SGETBYTN 

/holt Wert (0 bzw. 10) 

9B5D 

8E 

01 

06 

STX 

TRAGEFLAG ;a1s Flag speichern 

9B60 

40 

2A 

82 

OMP 

ENDSMB 

/Befehl fertig 

BEF OPTION 






9B63 

20 

02 

82 

OSR 

SGETBYTN 

/holt Wert (0 bzw. 10) 
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9866 

8E 

80 

05 

STX 

OPTFLAG 

;als Flag speichern 

9869 

40 

2A 

82 

OMP 

ENOSMB 

;Befehl fertig 

8EFIF: 







986C 

20 

88 

83 

OSR 

INOBASBZ 

;Oode ueberlesen 

986F 

20 

3A 

80 

JSR 

SFRMEVL 

(■Ausdruck auswerten 

9872 

20 

79 

00 

OSR 

OHR GOT 

;letztes Zeichen 

9875 

09 

89 


OMP 

#$89 

;Oode fuer GOTO 

9877 

FO 

05 


8EQ 

$9B7E 

;ja, dann weiter 

9879 

A9 

A7 


LOA 

#$A7 

;Gode fuer THEN 

9878 

20 

5E 

80 

OSR 

SGHKZEI 

(■folgt dieser Gode ? 

987E 

A5 

61 


LOA 

$61 

(■Exponent von Ergebnis 

9880 

88 

08 

05 

STA 

IFFLAG 

(■als Flag speichern 

9883 

80 

IF 


ONE 

$98 A4 

(■wenn nicht 0( dann weiter 

9885 

AO 

00 


LOY 

#$00 


9887 

81 

7A 


LOA 

($7A),Y 

;akt. Basic-Gode 

9889 

FO 

16 


8EQ 

$98 Al 

;Zeilenende( dann fertig 

9888 

09 

64 


OMP 

#$64 

;Simon's Praefix ? 

9888 

80 

09 


ONE 

$9898 

;nein( dann weiter 

988F 

20 

88 

83 

OSR 

INOBASBZ 

(Praefix ueberlesen 

9892 

81 

7A 


LOA 

($7A),Y 

(■naechster Gode 

9894 

09 

47 


OMP 

#$47 

;Gode fuer ELSE 

9896 

FO 

06 


8EQ 

$9B9E 

;ja, dann weiter 

9898 

20 

88 

83 

OSR 

INOBASBZ 

(■naechsten Gode 

9898 

40 

87 

98 

OMP 

$9887 

;Schleife 

989E 

20 

88 

83 

OSR 

INOBASBZ 

;Gode (ELSE) ueberlesen 

98A1 

40 

2A 

82 

OMP 

ENOSMB 

(■Befehl fertig 

98 A4 

AO 

00 


LOY 

#$00 


98A6 

81 

7A 


LOA 

($7A),Y 

;akt. Gode 

98A8 

09 

3A 


OMP 

#$3A 

/ • 

98AA 

80 

IF 


808 

$9808 

;groesser als 9(dann weiter 

98AC 

09 

20 


OMP 

#$20 

. * * 

/ 

98AE 

80 

06 


ONE 

$9886 

(■nein ? 

98 80 

20 

88 

83 

OSR 

INOBASBZ 

(■naechsten Gode 

9883 

40 

A4 

98 

OMP 

$98 A4 

;Schleife 

98 86 

09 

60 


OMP 

#$60 

;Shift-Blank 

9888 

FO 

F6 


BEQ 

$9880 

;ia, dann s.o. 

98 8A 

20 

08 

80 

OSR 

SFRMNUM 

(■Ausdruck holen 

9888 

20 

16 

80 

OSR 

SFAOAOR 

(in Adressformat wandeln 

9800 

20 

55 

80 

OSR 

SGOTOl 

;GOTO-Befeh 1 ausfuehren 

9803 

48 



PHA 



9804 

20 

F3 

82 

OSR 

BASROMEI 

(■Basic ein 

9807 

68 



PLA 



9808 

40 

AE 

A7 

OMP 

$A7AE 

(■zur Interpreterschleife 

9808 

A5 

7A 


LOA 

$7A 

(Basic-Zeiger vermindern 

9808 

80 

02 


BNE 

$9801 


980F 

06 

78 


OEO 

$78 
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9BD1 

C6 

7A 


DEC 

$7A 


9BD3 

6C 

08 

03 

OMP 

(SO308) ; 

zur Ausfuehrung eines Bef. 

BEF AUTO: 






9BD6 

20 

DB 

83 

OSR 

INCBASBZ 

;Code ueberiesen 

9BD9 

20 

OD 

80 

OSR 

SFRMNUM 

;Wert holen 

9BDC 

20 

16 

80 

OSR 

SFACADR 

;in Adressformat 

9BDF 

8D 

FF 

01 

STA 

AUTOZI+1 

;Anfangswert 

9BE2 

8C 

FE 

01 

STY 

AUTOZI 

9BE5 

20 

FC 

81 

OSR 

SGETBYTC 

;Inkrementwert holen 

9BE8 

8E 

Bl 

C5 

STX 

AUTOINC 


9BEB 

A9 

OA 


LDA 

#SOA 


9BED 

8D 

B2 

C5 

STA 

AUTOFLAG 

;Flag setzen 

9BF0 

38 



SEC 


9BF1 

AD 

FE 

01 

LDA 

AUTOZI 

;Anfangswert um Ink.Wert 

9BF4 

ED 

Bl 

C5 

SBC 

AUTOINC 

;vermindern 

9BF7 

8D 

FE 

01 

STA 

AUTOZI 


9BFA 

AD 

FF 

01 

LDA 

AUTOZI+1 

;High-Byte 

9BFD 

E9 

00 


SBC 

#$00 

9BFF 

8D 

FF 

01 

STA 

AUTOZI+1 


9C02 

4C 

2A 

82 

OMP 

ENDSMB 

/Befehl fertig 

BEFRESET: 






9C05 

20 

DB 

83 

OSR 

INCBASBZ 

/Code ueberlesen 

9C08 

20 

OD 

80 

OSR 

SFRMNUM 

/Wert holen 

9C0B 

20 

16 

80 

OSR 

SFACADR 

/in Adressformat wandeln 

9C0E 

85 

15 


STA 

$15 

/nach $14,$15 und 

9C10 

85 

40 


STA 

$40 

/nach $3F,$40 (DATA-Zeile) 

9C12 

84 

14 


STY 

$14 


9C14 

84 

3F 


STY 

$3F 


9C16 

20 

70 

80 

OSR 

SSTRPZ 

/Programmzeile suchen 

9C19 

38 



SEC 


9C1A 

A5 

5F 


LDA 

$5F 


9C1C 

E9 

01 


SBC 

#$01 


9C1E 

A4 

60 


LDY 

$60 


9C20 

BO 

01 


BCS 

$9C23 


9C22 

88 



DEY 



9C23 

85 

41 


STA 

$41 

/$41,$42 (DATA-Zeiger) 

9C25 

84 

42 


STY 

$42 

/ = ($5F,$60) - 1 

9C27 

4C 

2A 

82 

OMP 

ENDSMB 

/Befehl fertig 

BEFCALL: 






9C2A 

A9 

31 


LDA 

#$31 

/Code fuer PROC 

9C2C 

85 

22 


STA 

$22 

/zu suchen 

9C2E 

A9 

OA 


LDA 

#$0A 


9C30 

8D 

97 

C5 

STA 

PROCNFFL 

/evtl, ’proc not found' 

9C33 

20 

39 

9C 

OSR 

SUCHCODE 

/Code (in $22) suchen 

9C36 

4C 

66 

9C 

OMP 

$9C66 


SUCHCODE: 






9C39 

18 



CLC 
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9C3A 

A5 

2B 


LDA 

$2B 

;$20,$21 = 4 + $2B,$2C 

9C3C 

69 

04 


ADC 

#$Q4 

(Basic-Start 

9C3E 

85 

20 


STA 

$20 


9C40 

A5 

2C 


LDA 

$2C 


9C42 

69 

00 


ADC 

#$00 


9C44 

85 

21 


STA 

$21 


SUCHCODEl: 






9C46 

AO 

00 


LDY 

#$00 


9C48 

Bl 

20 


LDA 

($20),Y 

;Basic-Code 

9C4A 

C9 

64 


CMP 

#$64 

;Simon's Praefix ? 

9C4C 

DO 

OA 


BNE 

$9C58 

;nein, dann weiter 

9C4E 

20 

DC 

9C 

OSR 

INC$20 

;Zeiger erhoehen 

9C51 

Bl 

20 


LDA 

($20),Y 


9C53 

C5 

22 


CMP 

$22 

;zu suchendes Zeichen 

9C55 

DO 

01 


BNE 

$9C58 

;nicht gef., dann weiter 

9C57 

60 



RTS 


;sonst fertig 

9C58 

Bl 

20 


LDA 

($20),Y 


9C5A 

FO 

27 


BEQ 

$9C83 

;Zeilenende, dann weiter 

9C5C 

C9 

22 


CMP 

#$22 

;AnfuehrungsZeichen 

9C5E 

FO 

6C 


BEQ 

$9CCC 

;ja, dann weiter 

SUCHCODEN; 





9C60 

20 

DC 

9C 

OSR 

INC$20 

;Zeiger erhoehen 

9C63 

4C 

46 

9C 

OMP 

SUCHCODEl 

. ;zur Suchschleife 

;Fort Setzung 

von 

BEFCALL 


9C66 

C8 



INY 



9C67 

Bl 

7A 


LDA 

($7A),Y 

;akt. Code 

9C69 

FO 

OB 


BEQ 

$9C76 

;Zeilenende, dann weiter 

9C6B 

Dl 

20 


CMP 

($20),Y 

;mit zu such. Namen vgl. 

9C6D 

DO 

48 


BNE 

$9CB7 

;ungleich ? 

9C6F 

Bl 

20 


LDA 

($20),Y 


9C71 

FO 

44 


BEQ 

$9CB7 

;Name zu Ende ? 

9C73 

4C 

66 

9C 

OMP 

$9C66 

;Schleife 

9C76 

AO 

00 


LDY 

#$00 


9C78 

A5 

20 


LDA 

$20 

;Basic-Zeiger ($7A,$7B) 

9C7A 

85 

7A 


STA 

$7A 

;mit $20,$21 laden 

9C7C 

A5 

21 


LDA 

$21 


9C7E 

85 

7B 


STA 

$7B 


9C80 

4C 

30 

9F 

JMP 

BEFPROC 

;zum PROC-Befehl 

; Fortsetzung 

von 

SUCHCDDE (bzw. 

SUCHCODEN) 

9C83 

20 

DC 

9C 

OSR 

INC$20 

;Zeiger erhoehen 

9C86 

Bl 

20 


LDA 

($20),Y 

;Vorwaertszeiger low 

9C88 

DO 

05 


BNE 

$9C8F 

;ungleich 0 ? 

9C8A 

A9 

01 


LDA 

#$01 


9C8C 

8D 

DD 

C5 

STA 

PENDFLAG 

;Flag f. Prog.end setzen 

9C8F 

20 

DC 

9C 

OSR 

INC$20 

;Zeiger erhoehen 
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9C92 

Bl 

20 


LDA 

($20)(Y 

;Vorwaertszeiger high 

9C94 

DO 

2A 


BNE 

$9CC0 

(•ungleich 0 ? 

9C96 

AD 

DD 

C5 

LDA 

PENDFLAG 


9C99 

C9 

01 


CMP 

#$01 


9C9B 

DO 

23 


BNE 

$9CC0 

;Prog. n. zu Ende, dann w 

9C9D 

AD 

97 

C5 

LDA 

PROCNFFL 

(•Fehlermeldung ausgeben ? 

9 CAO 

C9 

OA 


CMP 

#$0A 


9CA2 

FO 

05 


BEQ 

$9CA9 

;ja ? 

9CA4 

68 



PLA 


(•Stack bereinigen 

9CA5 

68 



PLA 



9CA6 

4C 

2A 

82 

OMP 

ENDSMB 

(•Befehl beenden 

9CA9 

A9 

01 


LDA 

#$01 


9CAB 

8D 

97 

C5 

STA 

PROCNFFL 

;Flag ruecksetzen 

9CAE 

CE 

2C 

C6 

DEC 

SPEXEC 

;EXEC-Stack bereinigen 

9CB1 

CE 

2C 

C6 

DEC 

SPEXEC 


9CB4 

4C 

8C 

88 

OMP 

SERROUT 

(•Fehler ausgeben 

(Fortsetzung 

von 

BEFCALL 


9CB7 

20 

DC 

9C 

OSR 

INC$20 

(•Zeiger erhoehen 

9CBA 

20 

46 

9C 

OSR 

SUCHCODEl ('Code weitersuchen 

9CBD 

4C 

66 

9C 

OMP 

$9C66 

/ S • 0 • 

;Fortsetzung 

von 

SUCHCODE 


9CC0 

20 

DC 

9C 

OSR 

INC$20 


9CC3 

20 

DC 

9C 

OSR 

INC$20 


9CC6 

20 

DC 

9C 

OSR 

INC$20 


9CC9 

4C 

46 

9C 

OMP 

SUCHCODEl 

(•Fortsetzung 

von 

SUCHCODE (bei 

AnfuehrungsZeichen) 

9CCC 

20 

DC 

9C 

OSR 

INC$20 

(•Zeiger weiterstellen 

9CCF 

AO 

00 


LDY 

#$00 


9CD1 

Bl 

20 


LDA 

($20),Y 


9CD3 

FO 

AE 


BEQ 

$9C83 

;Zeilenende ? 

9CD5 

C9 

22 


CMP 

#$22 

;2. Anfuehrungszeichen 

9CD7 

FO 

ED 


BEQ 

$9CC6 

(•ja, dann nach oben 

9CD9 

4C 

CC 

9C 

OMP 

$9CCC 

(•Schleife 

INC$20 

; 





;$20,$21 erhoehen 

9CDC 

E6 

20 


INC 

$20 


9CDE 

DO 

02 


BNE 

$9CE2 


9CE0 

E6 

21 


INC 

$21 


9CE2 

60 



RTS 



BEFEXEC: 






9CE3 

A5 

7A 


LDA 

$7A 

;Prg.-Zaehler sichern 

9CE5 

48 



PHA 



9CE6 

A5 

7B 


LDA 

$7B 


9CE8 

48 



PHA 



9CE9 

AO 

00 


LDY 

#$00 


9CEB 

Bl 

7A 


LDA 

($7A),Y 

;akt. Zeichen 
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9CED 

FO 

06 


BEQ 

$9CF5 

;Zeilenende ? 

9CEF 

20 

DB 

83 

3SR 

INCBASBZ 

;Basic-Zeiger eroehen 

9CF2 

4C 

E9 

90 

OMP 

$9CE9 

(•Schleife 

9CF5 

AC 

20 

06 

LDY 

SPEXEC 

; EXEC-Stape1-Zeiger 

9CF8 

CO 

09 


CPY 

#$09 


9CFA 

90 

05 


BCC 

$9D01 

(•Stapel nicht voll ? 

9CFC 

A9 

09 


LDA 

#$09 

;Nr. von 'stack too large 

9CFE 

4C 

80 

88 

OMP 

SERROUT 

(•Fehler ausgeben 

9D01 

C8 



INY 


(•Zeiger erhoehen 

9D02 

A5 

7A 


LDA 

$7A 

;akt. Prg.z. auf Stapel 

9D04 

99 

18 

06 

STA 

STACKEXEC 


9D07 

08 



INY 



9D08 

A5 

7B 


LDA 

$7B 


9D0A 

99 

18 

06 

STA 

STACKEXEC 


9D0D 

80 

20 

06 

STY 

SPEXEC 

(•Stapelzeiger speichern 

9D10 

68 



PLA 


(•alten Programmzeiger 

9D11 

85 

7B 


STA 

$7B 

(•wiederherstellen 

9D13 

68 



PLA 



9D14 

85 

7A 


STA 

$7A 


9D16 

4C 

2A 

90 

OMP 

BEFCALL 

;zum CALL-Befehl 


BEFENDPROC: 


9D19 

AC 

20 

06 

LDY 

SPEXEC 


9D1C 

00 

02 


CPY 

#$02 


9D1E 

BO 

05 


BCS 

$9D25 

;EXEC-Stape 1 nicht leer ? 
;Nr. f. ’end proc w.o. e' 

9D20 

A9 

06 


LDA 

#$06 

9D22 

40 

80 

88 

OMP 

SERROUT 

(•Fehler ausgeben 

9D25 

B9 

18 

06 

LDA 

STACKEXEC(Y 

9D28 

85 

7B 


STA 

$7B 

(•Programmzaehler mit 

9D2A 

88 



DEY 


(•Inhalt von Stapel laden 

9D2B 

B9 

18 

06 

LDA 

STACKEXEC 

,Y 

9D2E 

85 

7A 


STA 

$7A 


9D30 

88 



DEY 



9D31 

8C 

20 

06 

STY 

SPEXEC 

(•Stapelzeiger speichern 

9D34 

40 

2A 

82 

OMP 

ENDSMB 

;Befehl fertig 


BEFEXIT : 


9D37 

20 

DB 

83 

JSR 

INCBASBZ 

Code ueberlesen 

9D3A 

20 

DB 

83 

□ SR 

INCBASBZ 

Blank ueberlesen 

9D3D 

A9 

8B 


LDA 

#$8B 

Code fuer IF 

9D3F 

20 

5E 

80 

□ SR 

SCHKZEI 

folgt dieser Code ? 

9D42 

20 

3A 

80 

□ SR 

SFRMEVL 

Ausdruck holen 

9D45 

20 

79 

00 

□ SR 

CHRGOT 

(unsinnig) 

9D48 

A5 

61 


LDA 

$61 

Exponent von Ergebnis 

9D4A 

DO 

03 


BNE 

$9D4F 

nicht null( dann weiter 

9D4C 

40 

2A 

82 

□MP 

ENDSMB 

sonst nur Befehl beenden 

9D4F 

A9 

36 


LDA 

#$36 

(•Code fuer END LOOP 
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9D51 

85 

22 


STA 

$22 ;als Suchzeichen merken 

9D53 

A5 

7A 


LOA 

$7A ;$20,$21 = $7A,$7B 

9D55 

85 

20 


STA 

$20 ;(ab Prg.z. suchen) 

9D57 

A5 

7B 


LOA 

$7B 

9D59 

85 

21 


STA 

$21 

9D5B 

20 

46 

9C 

OSR 

SUCHCOOEl ;Code ab hier suchen 

9D5E 

A5 

20 


LOA 

$20 ;Prg.z. mit gefundener 

9D60 

85 

7A 


STA 

$7A ,-Adresse laden 

9D62 

A5 

21 


LOA 

$21 

9D64 

85 

7B 


STA 

$7B 

9D66 

CE 

41 

C6 

OEC 

SPLOOP ,-Stapel f. LOOP bereinigen 

9D69 

CE 

41 

C6 

OEC 

SPLOOP 

9D6C 

4C 

74 

91 

OMP 

BEFO ;zum Leerbefehl 

BEFENDLOOP: 




9D6F 

AC 

41 

C6 

LOY 

SPLOOP 

9D72 

CO 

02 


CPY 

#$02 

9D74 

BO 

05 


BCS 

$907B ;LOOP-Stape1 nicht leer ? 

9D76 

A9 

07 


LOA 

#$07 ;Nr. f. 'end loop w.o. 1.' 

9D78 

4C 

8C 

88 

OMP 

SERROUT (Fehler ausgeben 

9D7B 

B9 

20 

C6 

LOA 

STACKLOOP,Y 

9D7E 

85 

7B 


STA 

$7B ;Basic-Prg.Z• mit Wert aus 

9D80 

88 



OEY 

;LOOP-Stape1 laden 

9D81 

B9 

20 

C6 

LOA 

STACKLOOP,Y 

9D84 

85 

7A 


STA 

$7A 

9D86 

4C 

74 

91 

OMP 

BEFO ,-zum Leerbefehl 

BEFONKEY: 





9D89 

A9 

00 


LOA 

#$00 

9D8B 

80 

EA 

C5 

STA 

ONKEYFLAG ,-Flag loeschen 

9D8E 

20 

OB 

83 

OSR 

INCBASBZ ,-Code ueberlesen 

9D91 

A5 

7A 


LOA 

$7A ,-Prg.z. als Onkey-Zeiger 

9D93 

80 

E8 

C5 

STA 

ONKEYZEIG 

9D96 

A5 

7B 


LOA 

$7B 

9D98 

80 

E9 

C5 

STA 

ONKEYZEIG+1 

9D9B 

20 

B7 

86 

OSR 

SGETSTR ,-holt String (ohne Wirkung) 

9D9E 

A9 

OA 


LOA 

#$0A 

9DA0 

80 

EA 

C5 

STA 

ONKEYFLAG ,-Flag setzen 

9DA3 

AO 

00 


LOY 

#$00 

9DA5 

Bl 

7A 


LOA 

($7A),Y ,-akt. Basic-Code 

9DA7 

FO 

06 


BEQ 

$90AF ,-Zeilenende ? 

9DA9 

20 

OB 

83 

OSR 

INCBASBZ ,-naechstes Zeichen 

9DAC 

4C 

A3 

90 

OMP 

$90A3 ;Schleife 

9DAF 

4C 

2A 

82 

OMP 

ENDSMB ,-Befehl fertig 

BEFDISABLE: 




9DB2 

A9 

00 


LOA 

#$00 

9DB4 

80 

EA 

C5 

STA 

ONKEYFLAG ,-Flag loeschen 

9DB7 

4C 

74 

91 

□ MP 

BEFO ,-zum Leerbefehl 
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ONKEYl: 







9DBA 

A5 

7A 


LDA 

$7A 

;Programmzaehler retten 

9DBC‘ 

48 



PHA 



9DBD 

A5 

7B 


LDA 

$7B 


9DBF 

48 



PHA 



9DC0 

AD 

E8 

05 

LDA 

ONKEYZEIG 

(•Programmz. mit Onkey- 

9DC3 

85 

7A 


STA 

$7A 

;Zeiger laden 

9DC5 

AD 

E9 

05 

LDA 

ONKEYZEIG+1 

9DC8 

85 

7B 


STA 

$7B 


9DCA 

A9 

00 


LDA 

#$00 


9DCC 

8D 

EA 

05 

STA 

ONKEYFLAG 

;Flag ruecksetzen 

9DCF 

20 

B7 

86 

JSR 

SGETSTR 

;String holen 

9DD2 

85 

AD 


STA 

$AD 

(•Adresse nach $AC,$AD 

9DD4 

86 

AO 


STX 

$AC 


9DD6 

20 

67 

80 

OSR 

SCHKCOMl 

; Komma ? 

9DD9 

20 

E4 

FF 

3SR 

GETIN 

;Zeich. von Tastatur ho! 

9DDC 

AO 

OA 


LDY 

#$0A 


9DDE 

80 

EA 

05 

STY 

ONKEYFLAG 

;Flag wieder setzen 

9DE1 

8D 

EC 

C5 

STA 

KEYON 

(•Zeichen speichern 

9DE4 

AO 

00 


LDY 

#$00 


9DE6 

Bl 

AO 


LDA 

($AC),Y 

(•String durchsuchen 

9DE8 

CD 

EC 

05 

CMP 

KEYON 

(•nach gedr. Taste 

9DEB 

FO 

10 


BEQ 

$9DFD 

(•gefunden ? 

9DED 

09 

5D 


CMP 

#$5D 

(•Eckige Klammer zu ? 

9DEF 

FO 

00 


BEQ 

$9DFD 

(•ja ? 

9DF1 

08 



INY 


(•naechstes Zeichen 

9DF2 

04 

69 


CPY 

$69 

(•String zu Ende ? 

9DF4 

DO 

FO 


BNE 

$9DE6 

;nein( dann Schleife 

9DF6 

68 



PLA 


(•alten Prg.Z. restauriei 

9DF7 

85 

7B 


STA 

$7B 


9DF9 

68 



PLA 



9DFA 

85 

7A 


STA 

$7A 


9DFC 

60 



RTS 


(•fertig 

9DFD 

AD 

EC 

05 

LDA 

KEYON 

(•gedruecktes Zeichen 

9E00 

85 

90 


STA 

$90 

(•in Statusvariable ST 

9E02 

68 



PLA 



9E03 

8D 

FO 

05 

STA 

BASBZK 

(•alten Prg.z. in BASBZK 

9E06 

68 



PLA 


(•und BASBZK+1 sichern 

9E07 

8D 

Fl 

05 

STA 

BASBZK+1 


9E0A 

68 



PLA 


(•Stack bereinigen 

9E0B 

68 



PLA 



9E0C 

40 

2A 

82 

OMP 

ENDSMB 

(•Befehl beenden 

BEFRESIJME 






9E0F 

AD 

FO 

05 

LDA 

BASBZK 

(•gesicherten Wert 

9E12 

85 

7B 


STA 

$7B 

;in Prg.z. uebertragen 

9E14 

AD 

Fl 

05 

LDA 

BASBZK+1 


9E17 

85 

7A 


STA 

$7A 


9E19 

20 

F3 

82 

OSR 

BASROMEI 

(Basic ein 

9E1C 

A9 

OA 


LDA 

#$0A 
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9E1E 

89 

EA 

C5 

STA 

ONKEYFEAG ;Flaq loeschen 

9E21 

4C 

A6 

91 

JMP 

$91A6 


ÜEFLOOP: 






9E24 

AC 

41 

C6 

LDY 

SPEOOP 


9E27 

CO 

09 


CPY 

#$09 


9E29 

90 

05 


BCC 

$9E30 

;EOOP-Stack nicht voll ? 

9E2B 

A9 

09 


EDA 

tl $09 

;Nr. f. 'stack too large' 

9E2D 

4C 

8C 

88 

JMP 

SERROL'T 

,-Fehler ausgeben 

9E3Ü 

C8 



INY 


;Zeiger erhoehen 

9E31 

A5 

7A 


EDA 

$7A 

;Prg.Z. auf Stapel legen 

9E33 

99 

2D 

C6 

STA 

STACKEOOP,Y 

9E36 

C8 



INY 



9E37 

A5 

7B 


EDA 

$7B 


9E39 

99 

2D 

C6 

STA 

STACKEOOP^Y 

9E3C 

8C 

41 

C6 

STY 

SPEOOP 

;StapelZeiger speichern 

9E3F 

4C 

74 

91 

JMP 

BEFO 

;zum Eeerbef. 

BEFDELAY: 






9E42 

20 

02 

82 

JSR 

SGETBYTN 

;Wert holen 

9E45 

8E 

F8 

C5 

STX 

DEEAY 

; speiehern 

9E48 

4C 

2A 

82 

JMP 

ENDSMB 

;fert i g 

BEFSECURE: 






9E4B 

20 

02 

82 

JSR 

SGETBYTN 

;Wert ueberlesen 

9E4E 

A9 

41 


EDA 

#$41 

;Code fuer DISAPA 

9E50 

85 

22 


STA 

$22 

;als SuchZeichen 

9E52 

8D 

97 

C5 

STA 

PROCNFFE 

;kein Fehler, wenn n. gef. 

9E55 

20 

39 

9C 

JSR 

SUCHCODE 

;Code suchen 

9E58 

A5 

20 


EDA 

$20 

;$20,$21 vermindern 

9E5A 

DO 

02 


BNE 

$9E5E 


9E5C 

C6 

21 


DEC 

$21 


9E5E 

C6 

20 


DEC 

$20 


9E60 

A9 

00 


EDA 

#$00 

;Zeilenendemarkierung 

9E62 

91 

20 


STA 

($20),Y 

;hier einfuegen 

9E64 

20 

60 

9C 

JSR 

SUCHCODEN ;Code nochmal suchen 

9E67 

A9 

3A 


EDA 

#$3A 

/ 

9E69 

91 

20 


STA 

($20),Y 

;dort einsetzen 

9E6B 

4C 

58 

9E 

JMP 

$9E58 

;Schleife (bis Prg.Ende) 

BEFONERR: 






9E6E 

A9 

00 


EDA 

#$00 


9E70 

8D 

FB 

C5 

STA 

ONERRORFEAG ;Flaq loeschen 

9E73 

20 

DB 

83 

JSR 

INCBASBZ 

;Code ueberlesen 

9E76 

A5 

7A 


EDA 

$7A 

;Prg.Z in ONERRZEIG und 

9E78 

8D 

F9 

C5 

STA 

ONERRZEIG ;0NERRZEIG+1 speichern 

9E7B 

A5 

7B 


EDA 

$7B 


9E7D 

8D 

FA 

C5 

STA 

ONERRZEIG+1 

9E80 

A9 

OA 


EDA 

#$0A 


9E82 

8D 

FB 

C5 

STA 

ONERRORFEAG ;Flag setzen 
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9E85 

AO 

00 


LDY 

#$00 


9E87 

Bl 

7A 


LDA 

($7A),Y 

;akt. Oode 

9E89 

FO 

06 


BEQ 

$9E91 

;Zeilenende ? 

9E8B 

20 

DB 

83 

OSR 

INOBASBZ 

;naechsten Oode 

9E8E 

4C 

85 

9E 

OMP 

$9E85 

(Schleife 

9E91 

4C 

2A 

82 

OMP 

ENDSMB 

(•fertig 

BEFNOERR: 






9E94 

A9 

00 


LDA 

#$00 


9E96 

8D 

FB 

05 

STA 

ONERRORFLAG ;Flaq loeschen 

9E99 

4C 

74 

91 

OMP 

BEFO 

;zum Leerbefehl 

SWARM: 







9E9C 

8E 

FO 

05 

STX 

ERRN 

(•Fehlernummer speichern 

9E9F 

20 

F3 

82 

OSR 

BASROMEI 

(•Basic ein 

9EA2 

AD 

FB 

05 

LDA 

ONERRORFLAG ;0N ERROR aktiv ? 

9EA5 

C9 

OA 


OMP 

#$0A 


9EA7 

FO 

06 


BEQ 

$9EAF 

(•ja, dann weiter 

9EA9 

AE 

FO 

05 

LDX 

ERRN 

;Feh 1ernummer holen 

9EAC 

4C 

8B 

E3 

OMP 

$E38B 

(•zur Std.-Fehlerroutine 

9EAF 

AD 

FA 

05 

LDA 

ONERRZEIG+1 ;Prq.Z. mit Wert von 

9EB2 

85 

7B 


STA 

$7B 

(•ONERRROR-Zeiger laden 

9EB4 

AD 

F9 

05 

LDA 

ONERRZEIG 

9EB7 

85 

7A 


STA 

$7A 


9EB9 

A5 

39 


LDA 

$39 

;akt. Zeilennr. in ERRLN 

9EBB 

8D 

ID 

05 

STA 

ERRLN 

(•und ERRLN+1 ablegen 

9EBE 

A5 

3A 


LDA 

$3A 

9EC0 

8D 

lE 

05 

STA 

ERRLN+1 


9EC3 

A9 

00 


LDA 

#$00 


9EC5 

8D 

17 

06 

STA 

SPREPEAT 

(•Stacks initialisieren 

9EC8 

8D 

20 

06 

STA 

SPEXEG 

9ECB 

8D 

41 

06 

STA 

SPLOOP 


9ECE 

40 

2A 

82 

OMP 

ENDSMB 

(•fertig 

BEFOUT; 







9ED1 

20 

F3 

82 

OSR 

BASROMEI 

(•Basic ein 

9ED4 

AE 

FO 

05 

LDX 

ERRN 

(•Fehlernummer holen 

9ED7 

40 

8B 

E3 

OMP 

$E38B 

(•zur Std.-Fehlerrouti ne 

BEFOLD: 







9EDA 

A9 

04 


LDA 

#$04 


9EDC 

85 

20 


STA 

$20 

;$20,$21 auf Basic-Anf. +3 

9EDE 

A5 

20 


LDA 

$20 


9EE0 

85 

21 


STA 

$21 


9EE2 

AO 

00 


LDY 

#$00 


9EE4 

20 

DO 

90 

OSR 

IN0$20 

(•Zeiger erhoehen 

9EE7 

Bl 

20 


LDA 

($20),Y 

9EE9 

DO 

F9 


BNE 

$9EE4 

(•kein Zei.ende, dann Schl. 

9EEB 

20 

DO 

90 

OSR 

IN0$20 

(•Zeiger erhoehen 



197 


Kommentiertes Assembler-Listing 


9EEE 

A5 

20 


LDA 

$20 

; Vorwaertsz. restauri^ 

9EFÜ 

91 

2B 


STA 

($2B),Y 


9EF2 

C8 



INY 



9EF3 

A5 

21 


LDA 

$21 


9EF5 

91 

2B 


STA 

($2B),Y 


9EF7 

88 



DEY 



9EF8 

A9 

01 


LDA 

#$01 


9EFA 

85 

2D 


STA 

$2D 


9EFC 

A2 

03 


LDX 

#$03 

;3 Nullen werden gesuc 

9EFE 

20 

DC 

9C 

OSR 

INC$20 

;naechstes Zeichen 

9F01 

Bl 

20 


LDA 

($20) ,Y 


9F03 

DO 

F7 


BNE 

$9EFC 

;innere Schleife 

9F05 

CA 



DEX 


;Zaehler vermindern 

9F06 

DO 

F6 


BNE 

$9EFE 

;aeussere Schleife 

9F08 

20 

DC 

9C 

OSR 

INC$20 

;Zeiger erhoehen 

9F0B 

A5 

20 


LDA 

$20 

;Zeiger auf Ende der 

9F0D 

85 

31 


STA 

$31 

;Arrays ($31,$32) auf i 

9F0F 

A5 

21 


LDA 

$21 

; Zeiger 

9F11 

85 

32 


STA 

$32 


9F13 

A2 

03 


LDX 

#$03 


9F15 

B5 

2F 


LDA 

$2F,X 

,-Zeiger uebertragen 

9F17 

95 

20 


STA 

$2D,X 


9F19 

CA 



DEX 


(•Schleife fuer 4 Byte 

9F1A 

10 

F9 


BPL 

$9F15 

;noch nicht fertig ? 

9F1C 

4C 

74 

91 

OMP 

BEFO 

;zum Leerbefehl 

BEFRCOMP: 






9F1F 

20 

DB 

83 

OSR 

INCBASBZ 

;Code ueberlesen 

9F22 

20 

F3 

82 

OSR 

BASROMEI 

(•Basic ein 

9F25 

20 

DB 

83 

OSR 

INCBASBZ 


9F28 

AD 

CB 

C5 

LDA 

IFFLAG 

(•altes IF-Flag 

9F2B 

85 

61 


STA 

$61 

(•nach $61 schreiben 

9F2D 

4C 

7E 

9B 

OMP 

$9B7E 

(in den IF-Befehl 

BEFPROC: 






9F30 

AO 

00 


LDY 

#$00 


9F32 

Bl 

7A 


LDA 

($7A),Y 


9F34 

FO 

06 


BEQ 

$9F3C 

(•Zeilenende ? 

9F36 

20 

DB 

83 

OSR 

INCBASBZ 


9F39 

4C 

32 

9F 

OMP 

$9F32 

(•Schleife 

9F3C 

4C 

2A 

82 

OMP 

ENDSMB 

(•fertig 

BEFDUMP: 






9F3F 

A5 

2D 


LDA 

$2D 

(•Start der Var. nach 

9F41 

85 

20 


STA 

$20 

;$20,$21 kopieren 

9F43 

A5 

2E 


LDA 

$2E 


9F45 

85 

21 


STA 

$21 


9F47 

A9 

OD 


LDA 

#$0D 

;(CR) 

9F49 

20 

D2 

FF 

OSR 

BSOUT 

(•ausgeben 

9F4C 

A5 

21 


LDA 

$21 

(•Zeiger high 
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9F4E 

AO 

00 


LDY 

#$00 


9F50 

C5 

30 


CMP 

$30 

mit Start d. Array vgl. 

9F52 

90 

OD 


BCC 

$9F61 

kleiner, dann weiter 

9F54 

FO 

02 


BEQ 

$9F58 

gleich, dann low-B. vgl. 

9F56 

BO 

06 


BGS 

$9F5E 

groesser, dann Ende 

9F58 

A5 

20 


LDA 

$20 


9F5A 

05 

2F 


CMP 

$2F 


9F5C 

90 

03 


BCC 

$9F61 


9F5E 

40 

74 

91 

OMP 

BEFO 

zum Leerbefehl; Ende 

9F61 

Bl 

20 


LDA 

($20),Y 

1.Zeichen Variablenname 

9F63 

85 

A6 


STA 

$A6 


9F65 

09 

80 


ORA 

#$80 


9F67 

05 

A6 


CMP 

$A6 

war MSB gesetzt ? 

9F69 

DO 

40 


BNE 

$9FAB 

nein, dann weiter 

9F6B 

29 

7F 


AND 

#$7F 


9F6D 

20 

D2 

FF 

OSR 

BSOUT 

Zeichen ausgeben 

9F70 

20 

39 

AO 

OSR 

INC$20 

naechstes Zeichen 

9F73 

Bl 

20 


LDA 

($20),Y 


9F75 

29 

7F 


AND 

#$7F 


9F77 

20 

D2 

FF 

OSR 

BSOUT 

ausqeben 

9F7A 

A9 

25 


LDA 

#$25 


9F7C 

20 

D2 

FF 

OSR 

BSOUT 

ausgeben 

9F7F 

20 

40 

AO 

OSR 

OUT= 

“=" ausgeben 

9F82 

20 

39 

AO 

OSR 

INC$20 

Zeiger erhoehen 

9F85 

Bl 

20 


LDA 

($20),Y 

Hi gh-Byte 

9F87 

85 

62 


STA 

$62 


9F89 

20 

39 

AO 

OSR 

INC$20 


9F8C 

Bl 

20 


LDA 

($20),Y 

Low-Byte 

9F8E 

85 

63 


STA 

$6 3 


9F90 

A2 

90 


LDX 

#$90 


9F92 

38 



SEC 



9F93 

20 

88 

80 

OSR 

SXFLP 

■nach Fliessk. wandeln 

9F96 

20 

B5 

80 

OSR 

SFACASC 

•in Text umwandeln 

9F99 

20 

2B 

AO 

OSR 

OUTASC 

Text ausgeben (Wert) 

9F9C 

20 

39 

AO 

OSR 

INC$20 

•3 Byte ueberlesen 

9F9F 

20 

39 

AO 

OSR 

INC$20 


9FA2 

20 

39 

AO 

OSR 

INC$20 


9FA5 

20 

39 

AO 

OSR 

INC$20 


9FA8 

40 

47 

9F 

OMP 

$9F47 

;zur naechsten Variablen 

(hierher, 

wenn 

keine Inteqer-Variable 

9FAB 

29 

7F 


AND 

#$7F 


9FAD 

20 

D2 

FF 

OSR 

BSOUT 

; 1. Zeichen ausgeben 

9FB0 

20 

39 

AO 

OSR 

INC$20 

;Zeiger auf 2. Zeichen 

9FB3 

Bl 

20 


LDA 

($20),Y 


9FB5 

85 

A6 


STA 

$A6 


9FB7 

09 

80 


ORA 

#$80 


9FB9 

05 

A6 


CMP 

$A6 

;war MSB gesetzt ? 

9FBB 

DO 

44 


BNE 

$A001 

;nein, dann weiter 

9FBD 

29 

7F 


AND 

#$7F 
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9FBF 

20 

D2 

FF 

ÜSK 

BSOUT 

9FC2 

A9 

24 


LOA 

#$24 

9FC4 

20 

D2 

FF 

□ SR 

BSOUT 

9FC7 

20 

40 

AO 

3SR 

OUT = 

9FCA 

A9 

22 


LOA 

#$22 

9FCC 

20 

D2 

FF 

3SR 

BSOUT 

9FCF 

20 

39 

AO 

JSR 

INC$20 

9FD2 

Bl 

20 


LOA 

($20),Y 

9FD4 

85 

A8 


STA 

$A8 

9FD6 

20 

39 

AO 

JSR 

INC$20 

9FD9 

Bl 

20 


LOA 

($20),Y 

9FDB 

85 

23 


STA 

$23 

9FDD 

20 

39 

AO 

JSR 

INC$20 

9FE0 

Bl 

20 


LOA 

($20),Y 

9FE2 

85 

24 


STA 

$24 

9FE4 

AO 

00 


LOY 

#$00 

9FE6 

Bl 

23 


LOA 

($23) ,Y 

9FE8 

20 

02 

FF 

JSR 

BSOUT 

9FEB 

08 



INY 


9FEC 

04 

A8 


CPY 

$A8 

9FEE 

DO 

F6 


BNE 

$9FE6 

9FF0 

A9 

22 


LOA 

#$22 

9FF2 

20 

D2 

FF 

JSR 

BSOUT 

9FF5 

20 

39 

AO 

JSR 

INC$20 

9FF8 

20 

39 

AO 

JSR 

INC$20 

9FFB 

20 

39 

AO 

JSR 

INC$20 

9FFE 

40 

47 

9F 

JMP 

$9F47 

/hierher, 

wenn Fl iesskomma-Vari 

AOOl 

29 

7F 


AND 

#$7F 

A003 

20 

D2 

FF 

JSR 

BSOUT 

A006 

20 

39 

AO 

JSR 

INC$20 

A009 

A5 

20 


LOA 

$20 

AOOB 

A4 

21 


LOY 

$21 

AOOD 

20 

A3 

80 

JSR 

SFLDFACK 

AOlO 

20 

39 

AO 

JSR 

INC$20 

A013 

20 

39 

AO 

JSR 

INC$20 

A016 

20 

39 

AO 

JSR 

INC$20 

A019 

20 

B5 

80 

JSR 

SFACASC 

AOlC 

20 

40 

AO 

JSR 

OUT= 

AOIF 

20 

2B 

AO 

JSR 

OUTASC 

A022 

20 

39 

AO 

JSR 

INC$20 

A025 

20 

39 

AO 

JSR 

INC$20 

A028 

40 

47 

9F 

JMP 

$9F47 

OUTASC 






A02B 

A2 

00 


LDX 

#$00 

A02D 

BD 

00 

01 

LOA 

$0100,X 

A030 

FO 

06 


BEQ 

$A038 

A032 

20 

02 

FF 

JSR 

BSOUT 

A035 

E8 



INX 



;2. Zeichen ausgeben 

;ausgeben 

; An f.zeichen 
;ausgeben 

;Stringlaenge 


;Stringadr. low 


;Stringaclr. high 


/Zeichen des Strings 


/Stringlaenge erreicht ? 
/nein, dann Schleife 
/ AnfuehrungsZeichen 
/ausgeben 

/2 Byte ueberlesen 


/zur naechsten Variablen 
ble 

/2. Zeichen ausgeben 

/Konstantenadresse 
/ist akt. Zaehlerstand 
/Konstante in FAC bringen 
/insges. 5 Byte ueberlesen 


/FAC in Text umwandeln 
/= ausgeben 
/Wert ausgeben 


/zur naechsten Variablen 

/String ab $0100 ausgeben 

/Zeichen aus String 
/Endezeichen ? 

/Zeichen ausgeben 
/naechstes Zeichen 
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A036 

DO 

F5 


BNE 

$A02D 

(■Schleife 

A038 

60 



RTS 



INC$20: 






;$20,$21 um 1 erhoehen 

A039 

E6 

20 


INO 

$20 


A03B 

DO 

02 


BNE 

$A03F 


A03D 

E6 

21 


INO 

$21 


A03F 

60 



RTS 



0UT=: 







A040 

A9 

3D 


LDA 

#$3D 

/ “ 

A042 

40 

D2 

FF 

JMP 

BSOUT 

;ausgeben 

CHARENl: 






A045 

A5 

01 


LDA 

$01 

;Prozessorport 

A047 

09 

04 


ORA 

#$04 

;Zeichengenerator un- 

A049 

85 

01 


STA 

$01 

,-lesbar (Normalzustand) 

A04B 

60 



RTS 



CHARENO: 






A04C 

A5 

01 


LDA 

$01 


A04E 

78 



SEI 


(•Interrupts verhindern 

A04F 

29 

FB 


AND 

#$FB 

(•Zeichengen. lesbar 

A051 

85 

01 


STA 

$01 


A053 

60 



RTS 



A054 

40 

2A 

82 

OMP 

ENDSMB 

(Befehl beenden 

BEFDRAW: 






A057 

20 

DB 

83 

OSR 

INOBASBZ 

;Gode ueberlesen 

A05A 

20 

B7 

86 

OSR 

SGETSTR 

(■String holen 

A05D 

86 

AO 


STX 

$A0 

(■Stringadr. nach $AG($AD 

A05F 

85 

AD 


STA 

$AD 


A061 

A5 

69 


LDA 

$69 

;Stringlaenge 

A063 

48 



PHA 


; retten 

A064 

20 

31 

80 

OSR 

SOHKOOM 

(■Komma ? 

A067 

20 

27 

94 

OSR 

SGETADR 

;X-yVert holen 

A06A 

80 

6D 

OB 

STY 

DRX 

;speichern 

A06D 

8D 

6E 

OB 

STA 

DRX + 1 


A070 

20 

FO 

81 

OSR 

SGETBYTG 

; Y-Wert 

A073 

8E 

A3 

05 

STX 

DRY 


A076 

20 

7D 

93 

OSR 

GETPKTF 

(■Punktfarbe 

A079 

68 



PLA 


(■Stringlaenge 

A07A 

85 

5F 


STA 

$5F 

(■nach $5F 

A07C 

A9 

00 


LDA 

#$00 


A07E 

8D 

4F 

OB 

STA 

DRSTRZ 

(■Zaehler im String auf 0 

A081 

AD 

02 

05 

LDA 

ROTGR 

;Groesse 

A084 

8D 

03 

05 

STA 

DRGRZ 

; Vergroesserungszaehler 

A087 

80 

50 

OB 

STY 

DRSTATUS 
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A08A 

8E 

51 

CB 

STX 

DRYANF 


A08D 

AC 

4F 

CB 

LDY 

DRSTRZ 


A090 

Bl 

AC 


LDA 

($AC) ,Y 

/Zeichen aus String 

A092 

C4 

5F 


CPY 

$5F 

/Stringlaenge erreicht ? 

A094 

FO 

BE 


BEQ 

$A054 

;]a, dann Ende 

A096 

C8 



INY 


A097 

18 



CLC 



A098 

E9 

2F 


SBC 

#$2F 

;$30 abziehen (Carry=0) 

A09A 

48 



PHA 


/Wert von Ziffer retten 

A09B 

CE 

03 

C5 

DEC 

DRGRZ 


A09E 

AD 

03 

C5 

LDA 

DRGRZ 


AOAl 

DO 

09 


BNE 

$AOAC 

/Vergr.-Z. nicht abgel. ? 

A0A3 

AD 

02 

C5 

LDA 

ROTGR 

A0A6 

8D 

03 

C5 

STA 

DRGRZ 

/Vergr.-Z. neu gesetzt 

A0A9 

8C 

4F 

CB 

STY 

DRSTRZ 

AOAC 

AE 

51 

CB 

LDX 

DRYANF 


AOAF 

68 



PLA 


/Ziffernwert 

AOBO 

AC 

50 

CB 

LDY 

DRSTATUS 

A0B3 

C9 

09 


CMP 

#$09 


A0B5 

BO 

9D 


BCS 

$A054 

/groesser als 8, dann Ende 

A0B7 

8D 

61 

CB 

STA 

DRRICHT 

/als Richtung merken 

AOBA 

C9 

05 


CMP 

#$05 

AOBC 

90 

03 


BCC 

$A0C1 

/kleiner als 5 ? 

AOBE 

18 



CLC 


AOBF 

E9 

04 


SBC 

#$04 

/5 abziehen 

AOCl 

AA 



TAX 


/als Index 

A0C2 

BD 

59 

CB 

LDA 

DRAWTABX,X ;Increment aus Tabelle 

A0C5 

8D 

65 

CB 

STA 

DRINCX 


A0C8 

BD 

5D 

CB 

LDA 

DRAWTABY,X 

AOCB 

8D 

69 

CB 

STA 

DRINCY 


AOCE 

AD 

65 

CB 

LDA 

DRINCX 


AODl 

FO 

lA 


BEQ 

$AOED 

/Inc.X = 0 ? 

A0D3 

C9 

FF 


CMP 

#$FF 


A0D5 

DO 

OE 


BNE 

$A0E5 

/Inc.X nicht $FF ? 

A0D7 

AD 

6D 

CB 

LDA 

DRX 

/DRX vermindern 

AODA 

DO 

03 


BNE 

$AODF 


AODC 

CE 

6E 

CB 

DEC 

DRX + 1 


AODF 

CE 

6D 

CB 

DEC 

DRX 


A0E2 

4C 

ED 

AO 

OMP 

$AOED 

/we iter 

A0E5 

EE 

6D 

CB 

INC 

DRX 

/DRX erhoehen 

A0E8 

DO 

03 


BNE 

$AOED 


AOEA 

EE 

6E 

CB 

INC 

DRX + 1 


AOED 

AD 

69 

CB 

LDA 

DRINCY 


AOFO 

FO 

OD 


BEQ 

$AOFF 

/Inc.Y = 0 ? 

A0F2 

C9 

FF 


CMP 

#$FF 

A0F4 

DO 

06 


BNE 

$AOFC 

/Inc.Y nicht $FF ? 
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A0F6 

CE 

A3 

05 

DEC 

DRY 

;DRY vermindern 

A0F9 

40 

FF 

AO 

OMP 

$AOFF 

;weiter 

AOFC 

EE 

A3 

05 

INC 

DRY 

;DRY erhoehen 

AOFF 

AD 

6D 

CB 

LDA 

DRX 

;DRX und DRY als Punkt- 

A102 

85 

09 


STA 

$09 

;Koord. $09,$0A und $A4 

A104 

AD 

6E 

CB 

LDA 

DRX + 1 


A107 

85 

OA 


STA 

$0A 


A109 

AD 

A3 

05 

LDA 

DRY 


AlOC 

85 

A4 


STA 

$A4 


AlOE 

AD 

61 

CB 

LDA 

DRRICHT 

;Wert von Ziffer 

Alll 

C9 

05 


CMP 

#$05 


A113 

90 

06 


BCC 

$A11B 

(■kleiner als 5 ? 

A115 

20 

97 

92 

OSR 

PUNKT 

(■Punkt setzen 

Al 18 

20 

OE 

94 

3SR 

KERROMEIN 

1 ;Kernal ein 

Alle 

40 

87 

AO 

OMP 

$A087 

(■zur Schleife 

TABROT 







AUE 

01 

00 

00 

FF 00 

FF 01 00 

;8 Byte pro Drehwert 

A126 

01 

01 

FF 

FF 01 

FF 01 FF 


A12E 

00 

01 

FF 

00 01 

00 00 FF 


A136 

FF 

01 

FF 

01 01 

01 FF FF 


A13E 

FF 

00 

00 

01 00 

01 FF 00 


A146 

FF 

FF 

01 

01 FF 

01 FF 01 


A14E 

00 

FF 

01 

00 FF 

00 00 01 


A156 

01 

FF 

01 

FF FF 

FF 01 01 


BEFROT: 






A15E 

20 

02 

82 

OSR 

SGETBYTN 

(■Drehwert holen 

A161 

EO 

08 


CPX 

#$08 


A163 

90 

05 


BCC 

$A16A 

(■kleiner als 8 ? 

A165 

A9 

00 


LDA 

#$00 

;Nr. f. 'bad mode' 

A167 

40 

80 

88 

OMP 

SERROUT 

(■Fehler ausgeben 

A16A 

8A 



TXA 



A16B 

OA 



ASL 

A 


A16C 

OA 



ASL 

A 


A16D 

OA 



ASL 

A 


A16E 

AA 



TAX 


;X = Drehwert * 8 

A16F 

AO 

00 


LDY 

#$00 


A171 

BD 

lE 

Al 

LDA 

TABROT,X 

;8 Byte aus TABROT 

A174 

99 

59 

CB 

STA 

DRAWTABX,Y ;nach DRAWTAB uebertr. 

A177 

E8 



INX 



A178 

08 



INY 



A179 

00 

08 


CPY 

#$08 


A17B 

30 

F4 


BMI 

$A171 

; Schleife 

A17D 

20 

FC 

81 

OSR 

SGETBYTC 

(■Groesse holen 

A180 

8E 

02 

05 

STX 

ROTGR 


A183 

40 

2A 

82 

OMP 

ENDSMB 

(■Befehl fertig 
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BEFCHAR: 


A186 

20 

DB 

83 

OSR 

INCBASBZ 

A189 

20 

27 

94 

ÜSR 

SGETADR 

A18C 

84 

09 


STY 

$09 

A18E 

85 

OA 


STA 

$0A 

A190 

20 

FC 

81 

□ SR 

SGETBYTC 

A193 

86 

A4 


STX 

$A4 

A195 

20 

31 

80 

JSR 

SCHKCOM 

A198 

20 

27 

94 

JSR 

SGETADR 

A19B 

84 

AC 


STY 

$AC 

A19D 

85 

AD 


STA 

$AD 

A19F 

20 

7D 

93 

JSR 

GETPKTF 

A1A2 

20 

FC 

81 

JSR 

SGETBYTC 

A1A5 

EO 

00 


CPX 

#$00 

A1A7 

DO 

02 


BNE 

$A1AB 

A1A9 

A2 

01 


LDX 

#$01 

AlAB 

8E 

6E 

CB 

STX 

CHGR 

AlAE 

20 

B4 

Al 

JSR 

CHARZEI 

AlBl 

4C 

2A 

82 

JMP 

ENDSMB 


CHARZEI: 


A1B4 

A9 

00 


LDA 

#$00 

A1B6 

8D 

6D 

CB 

STA 

DRX 

A1B9 

20 

4C 

AO 

JSR 

CHARENO 

AIBC 

06 

AC 


ASL 

$AC 

AIBE 

26 

AD 


ROL 

$AD 

AICO 

06 

AC 


ASL 

$AC 

A1C2 

26 

AD 


ROL 

$AD 

A1C4 

06 

AC 


ASL 

$AC 

A1C6 

26 

AD 


ROL 

$AD 

A1C8 

18 



CLC 


A1C9 

A9 

00 


LDA 

#$00 

AICB 

65 

AC 


ADC 

$AC 

AICD 

8D 

A8 

C5 

STA 

EY 

AIDO 

A9 

DO 


LDA 

#$D0 

A1D2 

65 

AD 


ADC 

$AD 

A1D4 

8D 

A9 

C5 

STA 

EY + 1 

A1D7 

A9 

00 


LDA 

#$00 

A1D9 

85 

AC 


STA 

$AC 

AIDB 

85 

AD 


STA 

$AD 

AIDD 

E6 

AD 


INC 

$AD 

AIDF 

A5 

09 


LDA 

$09 

AlEl 

8D 

97 

C5 

STA 

AX 

A1E4 

A5 

OA 


LDA 

$0A 

A1E6 

8D 

98 

C5 

STA 

AX + 1 

A1E9 

A5 

A4 


LDA 

$A4 

AlEB 

8D 

AC 

C5 

STA 

AY 

AlEE 

AC 

6D 

CB 

LDY 

DRX 

AlFl 

A5 

AC 


LDA 

$AC 

A1F3 

29 

07 


AND 

#$07 


;Code ueberlesen 
;X-K. holen 


;Y-K. holen 

; Komma ? 

;BS-Code holen 
;Code nach $AC,$AD 

;Punktfarbe 
;Groesse 

;nicht null ? 


(•Zeichen malen 
/Befehl fertig 

;1 Zeichen malen 

;Zaeh 1er (bis 8) auf 0 
/Zeich.gen. lesbar 


/Code * 8 


/EY,EY+1 = Code * 8 + $D000 


/Adr. im Zeichg. in EY,EY+1 

/Bitzaehler = 0 
/Vergroesserungszaehler 
; = 1 

/Koord. in AX,AX+1 und 
/AY sichern 


Nr. der Bitzeile d. Zei. 
Zaehler fuer einzelne Bits 
Bitnr. von 0-7 
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A1F5 

AA 



TAX 




A1F6 

AD 

A8 

C5 

EDA 

EY 



A1F9 

85 

FE 


STA 

$FE 



AlFB 

AD 

A9 

C5 

EDA 

EY + 1 



AlFE 

85 

FF 


STA 

$FF 



A200 

Bl 

FE 


EDA 

($FE), 

Y 

;Byte aus Zeichengen. 

A202 

3D 

30 

93 

AND 

GBITTABS 

,X ;entspr. Bit maskieren 

A205 

FO 

06 


BEQ 

$A20D 


;Bit nicht gesetzt ? 

A207 

20 

97 

92 

asR 

PUNKT 


;Punkt setzen 

A20A 

20 

OE 

94 

3SR 

KERROMEIN ;Kernal ein 

A20D 

E6 

AC 


INC 

$AC 


;naechstes Bit 

A20F 

EE 

97 

C5 

INC 

AX 


;AX,AX+1 erhoehen 

A212 

DO 

03 


BNE 

$A217 


;(naechster Punkt in X) 

A214 

EE 

98 

C5 

INC 

AX + 1 



A217 

A5 

AC 


EDA 

$AC 



A219 

C9 

08 


CMP 

#$08 



A21B 

DO 

32 


BNE 

$A24F 


;Bitzaehler nicht abgel. 

A21D 

A9 

00 


EDA 

#$00 


A21F 

85 

AC 


STA 

$AC 


;Bitzaehler = 0 

A221 

18 



CEC 




A2 22 

AD 

97 

C5 

EDA 

AX 


;AX,AX+1 um 8 vermindern, 

A225 

E9 

07 


SBC 

#$07 


;also auf urspr. Wert 

A227 

8D 

97 

C5 

STA 

AX 


A22A 

AD 

98 

C5 

EDA 

AX + 1 



A22D 

E9 

00 


SBC 

#$00 



A22F 

8D 

98 

C5 

STA 

AX + 1 



A232 

A5 

AD 


EDA 

$AD 


;Vergr.Zae. 

A234 

CD 

6E 

CB 

CMP 

CHOR 


A237 

DO 

07 


BNE 

$A240 


,-nicht abgelaufen ? 

A239 

EE 

6D 

CB 

INC 

DRX 


;Zaehler f. 8 Bit-Zeilen 

A23C 

A9 

00 


EDA 

#$00 



A23E 

85 

AD 


STA 

$AD 



A240 

EE 

AC 

C5 

INC 

AY 


;naechste Zeile 

A243 

E6 

AD 


INC 

$AD 



A245 

AD 

6D 

CB 

EDA 

DRX 



A248 

C9 

08 


CMP 

#$08 


;Zaehler bis 8 n. abgel. 

A24A 

DO 

03 


BNE 

$A24F 


A24C 

4C 

45 

AO 

JMP 

CHARENl 

;Zeichg. unlesb. und Ende 

A24F 

AD 

97 

C5 

EDA 

AX 


;neue Koordinaten (AX,AY) 
;nach $09,$0A und $A4 

A252 

85 

09 


STA 

$09 


A254 

AD 

98 

C5 

EDA 

AX + 1 



A257 

85 

OA 


STA 

$0A 



A259 

AD 

AC 

C5 

EDA 

AY 



A25C 

85 

A4 


STA 

$A4 



A25E 

4C 

EE 

Al 

JMP 

$A1EE 


;Schleife 

PTESTl; 








A2Ö1 

84 

90 


STY 

$90 


;ST = 0 

A26 3 

Bl 

A8 


EDA 

($A8), 

Y 

;Byte aus Grafik-RAM 

A265 

3D 

30 

93 

AND 

GBITTABS,X ;entspr. Bit 
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A268 

FO 

03 


BEQ 

$A26D 

;Bit nicht gesetzt ? 

A26A 

C8 



INY 



A26B 

84 

90 


STY 

$90 

; sonst ST=1 

A26D 

4C 

OE 

94 

OMP 

KERROMEIN ;Kernal ein und fertig 

BEFHICOL: 






A270 

A9 

00 


LDA 

#$00 


A272 

8D 

ID 

CB 

STA 

LOWCOLFLAG ;Flaq ruecksetzen 

k275 

4C 

74 

91 

OMP 

BEFO 

;zum Leerbefehl 

FILLBER: 






A278 

A2 

00 


LDX 

#$00 

;Zeilenzaehler 

A27A 

AO 

00 


LDY 

#$00 

;Spaltenzaehler 

MIZ 

CG 

78 

CB 

CPY 

SPALTENANZ 

A27F 

FO 

07 


BEQ 

$A288 

;Endwert erreicht ? 

A281 

A5 

66 


LDA 

$66 

; Fue1Iwert 

A283 

91 

20 


STA 

($20),Y 


A285 

C8 



INY 



A286 

DO 

F4 


BNE 

$A27C 

(•Schleife 

A288 

E8 



INX 



A289 

EC 

79 

CB 

CPX 

ZEILENANZ 

A28C 

FO 

08 


BEQ 

$A296 

;Endwert erreicht ? 

A28E 

AO 

00 


LDY 

#$00 


A290 

20 

CE 

94 

OSR 

20PL40 

;auf naechste Zeile 

A293 

4C 

7C 

A2 

OMP 

$A27C 

(•Schleife 

A296 

60 



RTS 


(•fertig 

BEFFILL: 






A297 

A9 

00 


LDA 

#$00 


A299 

85 

A6 


STA 

$A6 

(•Flag f. Farbe/Zeichen 

A29B 

20 

8D 

AC 

OSR 

GETRCWD 

(•Grenzen holen 

A29E 

A5 

21 


LDA 

$21 

; Startadresse 

A2A0 

48 



PHA 


; sichern 

A2A1 

A5 

20 


LDA 

$20 


A2A3 

48 



PHA 



A2A4 

20 

FC 

81 

OSR 

SGETBYTC 

(•Zeichencode holen 

A2A7 

86 

66 


STX 

$66 


A2A9 

20 

78 

A2 

OSR 

FILLBER 

;Video-RAM beschreiben 

A2AC 

20 

FC 

81 

OSR 

SGETBYTC 

(•Farbcode holen 

A2AF 

86 

66 


STX 

$66 


A2B1 

38 



SEC 



A2B2 

68 



PLA 


(•alte Startadresse 

A2B3 

E9 

00 


SBC 

#$00 

(•minus Video-RAM Startadr 

A2B5 

85 

20 


STA 

$20 


A2B7 

68 



PLA 



A2B8 

ED 

88 

02 

SBC 

VIDRAMHI 


A2BB 

85 

21 


STA 

$21 


A2BD 

18 



CLC 



A2BE 

A5 

20 


LDA 

$20 


A2C0 

69 

00 


ADC 

#$00 

(•plus Farb-RAM-Startadr. 
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A2C2 

85 

20 


STA 

$20 


A2C4 

A5 

21 


LOA 

$21 


A2C6 

69 

08 


AOC 

#$08 


A2C8 

85 

21 


STA 

$21 

;als neue Startadr. 

A2CA 

20 

78 

A2 

OSR 

FILLBER 

;Farb-RAM beschreiben 

A2CD 

4C 

2A 

82 

JMP 

ENOSMB 

;Befehl fertig 

BEFFCHR: 






A2D0 

A9 

00 


LOA 

#$00 

;Flag f. Video-RAM 

A2D2 

85 

A6 


STA 

$A6 


A2D4 

20 

80 

AC 

3SR 

GETRCWO 

(Grenzen holen 

A2D7 

20 

FC 

81 

JSR 

SGETBYTC 

(■Zeichencode holen 

A2DA 

86 

66 


STX 

$66 


A2DC 

20 

78 

A2 

3SR 

FILLBER 

;Video-RAM beschreiben 

A2DF 

4C 

2A 

82 

OMP 

ENOSMB 

(•Befehl fertig 

BEFFCOL 

^ ; 






A2E2 

A9 

OA 


LOA 

#$0A 

(•Flag f. Farb-RAM 

A2E4 

85 

A6 


STA 

$A6 


A2E6 

20 

80 

AC 

OSR 

GETRCWO 

(Grenzen holen 

A2E9 

20 

FC 

81 

OSR 

SGETBYTC 

(•Farbcode holen 

A2EC 

86 

66 


STX 

$66 


A2EE 

20 

78 

A2 

OSR 

FILLBER 

(Farb-RAM beschreiben 

A2F1 

4C 

2A 

82 

OMP 

ENOSMB 

(•Befehl fertig 

BEFLOCAL: 






A2F4 

A2 

00 


LOX 

#$00 

(•Zeiger in Local-Tab. 

A2F6 

20 

OB 

83 

3SR 

INCBASBZ 

(•Code ueberlesen 

A2F9 

8A 



TXA 



A2FA 

48 



PHA 



A2FB 

20 

BE 

80 

3SR 

SGETVAR 

(•Variable suchen 

A2FE 

68 



PLA 



A2FF 

AA 



TAX 



A300 

A5 

5F 


LOA 

$5F 

;$5F($60 sind Var.adr. - 

A302 

9D 

53 

CA 

STA 

LOCALTAB 

(X ;in Tabelle legen 

A305 

E8 



INX 



A3 06 

A5 

60 


LOA 

$60 


A308 

90 

53 

CA 

STA 

LOCALTAB 

,x 

A30B 

E8 



INX 



A30C 

AO 

00 


LOY 

#$00 


A30E 

Bl 

5F 


LOA 

($5F),Y 

(•Zeichen aus Var.name 

A310 

90 

53 

CA 

STA 

LOCALTAB 

(X (in Tabelle legen 

A313 

E8 



INX 



A314 

C8 



INY 



A315 

CO 

02 


CPY 

#$02 

;2 Zeichen 

A317 

00 

F5 


BNE 

$A30E 

(Schleife 

A319 

AO 

00 


LOY 

#$00 


A31B 

A9 

FF 


LOA 

#$FF 

(■Merker f. unterdrueckte 

A31D 

91 

5F 


STA 

(S5F),Y 

(Variable setzen 

A31F 

Bl 

7A 


LOA 

($7A),Y 

;akt. Basic-Code 

A321 

FO 

00 


BEQ 

$A330 

(•Zeilenende ? 
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A323 

20 

DB 

83 

OSR 

INCBASBZ 

;Trennzeichen ueberlesen 

A3 26 

Bl 

7A 


LDA 

($7A),Y 


A328 

C9 

2C 


CMP 

#$2C 

;folgt dann noch ein Komi 

A32A 

DO 

CD 


BNE 

$A2F9 

;nein, dann naechste Var 

A32C 

C9 

20 


CMP 

#$20 

;Leerzeichen 

A32E 

FO 

F3 


BEQ 

$A323 

;ja, dann Schleife 

A330 

A9 

00 


LDA 

#$00 

/sonst Abschluss: 

A332 

90 

53 

CA 

STA 

LOCALTAB,X ;Loca 1 tabe1le mit zwei 

A335 

E8 



INX 



A336 

90 

53 

CA 

STA 

LOCALTAB, 

X /Nullen abschliessen 

A3 39 

4C 

2A 

82 

OMP 

ENDSMB 

/Befehl fertig 

BEFGLOBAL: 






A33C 

A2 

00 


LDX 

#$00 

/Zeiger in Local-Tabell 

A33E 

BO 

53 

CA 

LDA 

LOCALTAB,X ;Variablenadresse 

A341 

85 

5F 


STA 

$5F 

/nach $59,$60 

A343 

E8 



INX 



A344 

BO 

53 

CA 

LDA 

LOCALTAB, 

X 

A347 

85 

60 


STA 

$60 


A349 

DO 

03 


BNE 

$A34E 

/nicht Ende der Tabelle 

A34B 

4C 

74 

91 

OMP 

BEFO 

/zum Leerbefehl 

A34E 

E8 



INX 



A34F 

AO 

00 


LDY 

#$00 


A351 

BO 

53 

CA 

LDA 

LOCALTAB,X ;Variablenname 

A354 

91 

5F 


STA 

($5F),Y 


A356 

E8 



INX 



A357 

C8 



INY 



A358 

CO 

02 


CPY 

#$02 

/2 Zeichen 

A35A 

DO 

F5 


BNE 

$A351 

/Schleife 

A35C 

FO 

EO 


BEQ 

$A33E 

/fertig, dann naechst. V 

LINZEI 







A35E 

18 



CLC 



A35F 

AD 

97 

C5 

LDA 

AX 


A362 

ED 

2D 

C5 

SBC 

XMAXLOW 


A365 

AD 

98 

C5 

LDA 

AX + 1 


A368 

ED 

2E 

C5 

SBC 

XMAXHIGH 

/(AX,AX+1) - XMAX - 1 

A36B 

90 

OC 


BCC 

$A379 

/kleiner 0 ? 

A36D 

AD 

2D 

C5 

LDA 

XMAXLOW 

/sonst AX=XMAX 

A3 70 

8D 

97 

C5 

STA 

AX 


A373 

AD 

2E 

C5 

LDA 

XMAXHIGH 


A376 

8D 

98 

C5 

STA 

AX + 1 


A379 

18 



CLC 



A37A 

AD 

AA 

C5 

LDA 

EX 


A37D 

ED 

2D 

C5 

SBC 

XMAXLOW 


A380 

AD 

AB 

C5 

LDA 

EX + 1 


A383 

ED 

2E 

C5 

SBC 

XMAXHIGH 

/(EX,EX+1) - XMAX - 1 

A386 

90 

OC 


BCC 

$A394 

/kleiner 0 ? 

A388 

AD 

2D 

C5 

LDA 

XMAXLOW 

/sonst EX=XMAX 

A38B 

8D 

AA 

C5 

STA 

EX 
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A38E 

AD 

2E 

05 

LDA 

XMAXHIGH 


A391 

8D 

AB 

05 

STA 

EX + 1 


A394 

AD 

AO 

05 

LDA 

AY 


A397 

09 

07 


OMP 

#$07 


A399 

90 

05 


BOO 

$A3A0 

;AY kleiner 199 ? 

A39B 

A9 

07 


LDA 

#$07 

;sonst AY=199 

A39D 

8D 

AO 

05 

STA 

AY 


A3A0 

AD 

A8 

05 

LDA 

EY 


A3A3 

09 

07 


OMP 

#$07 


A3A5 

90 

05 


BOO 

$A3A0 

;EY kleiner 199 ? 

A3A7 

A9 

07 


LDA 

#$07 

;sonst EY=199 

A3A9 

8D 

A8 

05 

STA 

EY 


MOBBEWEG: 

(a1Igemein: 

2 Punkt mit Linie verbinden) 

A3AC 

A9 

00 


LDA 

#$00 


A3AE 

8D 

9F 

05 

STA 

YDIFF 

;Hilszellen annullieren 

A3B1 

8D 

AD 

05 

STA 

AY+1 


A3B4 

8D 

A9 

05 

STA 

EY + 1 


A3B7 

8D 

AO 

05 

STA 

YDIFF+1 


A3BA 

8D 

Al 

05 

STA 

DIFFV 


A3BD 

8D 

A2 

05 

STA 

DIFFV+1 


A3C0 

AD 

97 

05 

LDA 

AX 

;Punktkoordinaten setze 

A3C3 

85 

09 


STA 

$09 


A3C5 

AD 

98 

05 

LDA 

AX + 1 


A3 08 

85 

OA 


STA 

$0A 


A3CA 

AD 

AO 

05 

LDA 

AY 


A3CD 

85 

A4 


STA 

$A4 


A3CF 

AD 

AD 

05 

LDA 

AY + 1 


A3D2 

85 

A5 


STA 

$A5 


A3D4 

AD 

B4 

05 

LDA 

MOBBEW 

,-Sprite bew. od. Lin. Ze 

A3D7 

09 

FO 


OMP 

#$F0 


A3D9 

DO 

06 


BNE 

$A3E1 

;kein Sprite ? 

A3DB 

20 

25 

96 

3SR 

MOBPOSS 

;Sprite-Position setzen 

A3DE 

40 

E4 

A3 

3MP 

$A3E4 

;weiter 

A3E1 

20 

97 

92 

3 SR 

PUNKT 

(Punkt setzen 

A3E4 

AD 

Al 

05 

LDA 

DIFFV 


A3E7 

OD 

A2 

05 

ORA 

DIFFV+1 


A3EA 

FO 

06 


BEQ 

$A3F2 

,-DIFFV = 0 ? 

A3EC 

20 

00 

A5 

asR 

YNEXT 

;naechsten Punkt anpeile 

A3EF 

40 

00 

A3 

DMP 

$A300 

;zur Schleife 

A3F2 

AD 

98 

05 

LDA 

AX + 1 

;AX mit EX vergleichen 

A3F5 

8D 

24 

05 

STA 

VGLA+1 

;Vergleichswert A 

A3F8 

AD 

97 

05 

LDA 

AX 


A3FB 

8D 

23 

05 

STA 

VGLA 


A3FE 

AD 

AB 

05 

LDA 

EX + 1 


A401 

8D 

IB 

05 

STA 

VGLE+1 

;Vergleichswert E 

A404 

AD 

AA 

05 

LDA 

EX 
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A407 

8D 

lA 

05 

STA 

VGLE 

A40A 

20 

16 

A6 

OSR 

VGLAE 

A40D 

DO 

24 


BNE 

$A433 

A40F 

AD 

AD 

05 

LDA 

AY + 1 

A412 

8D 

24 

05 

STA 

VGLA+1 

A415 

AD 

AC 

05 

LDA 

AY 

A418 

8D 

23 

05 

STA 

VGLA 

A41B 

AD 

A9 

05 

LDA 

EY + 1 

A41E 

8D 

IB 

05 

STA 

VGLE+1 

A421 

AD 

A8 

05 

LDA 

EY 

A4 24 

8D 

lA 

05 

STA 

VGLE 

A427 

20 

16 

A6 

OSR 

VGLAE 

A42A 

FO 

06 


BEQ 

$A432 

A42C 

20 

00 

A5 

OSR 

YNEXT 

A42F ■ 

40 

00 

A3 

OMP 

$A3G0 

A4 32 

60 



RTS 


A433 

38 



SEO 


A4 34 

AD 

A8 

05 

LDA 

EY 

A437 

ED 

AO 

05 

SBO 

AY 

A43A 

A8 



TAY 


A43B 

AD 

A9 

05 

LDA 

EY + 1 

A43E 

ED 

AD 

05 

SBO 

AY + 1 

A441 

48 



PHA 


A442 

98 



TYA 


A443 

48 



PHA 


A444 

BO 

13 


BOS 

$A459 

A446 

68 



PLA 


A447 

68 



PLA 


A448 

38 



SEO 


A449 

AD 

AO 

05 

LDA 

AY 

A44C 

ED 

A8 

05 

SBO 

EY 

A44F 

A8 



TAY 


A450 

AD 

AD 

05 

LDA 

AY + 1 

A453 

ED 

A9 

05 

SBO 

EY + 1 

A4 56 

48 



PHA 


A457 

98 



TYA 


A4 58 

48 



PHA 


A459 

18 



OLO 

;h 

A45A 

68 



PLA 

A45B 

6D 

9F 

05 

ADO 

YDIFF 

A45E 

8D 

9F 

05 

STA 

YDIFF 

A461 

68 



PLA 


A462 

6D 

AO 

05 

ADO 

YDIFF+1 

A465 

8D 

AO 

05 

STA 

YDIFF + 1 

A468 

38 



SEO 


A469 

AD 

AA 

05 

LDA 

EX 


(•Vergleichsroutine 
;AX nicht gleich EX ? 

;AY mit EY vergleichen 


(•Vergleichsroutine 
;AY=EY, dann fertig 
(•naechsten Punkt anpeilen 
(•zur Schleife 

(•fertig 
;EY-AY bilden 

;EY-AY auf Stack 

;EY groesser gleich AY ? 
(•Stack bereinigen 
;AY-EY bilden 

;AY-EY auf Stack 

ier ist abs(EY-AY) auf Stack 
(•YDIFF = YDIFF + abs(EY-AY) 

;EX-AX bilden 
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A46C 

ED 

97 

C5 

SBC 

AX 

A46F 

A8 



TAY 


A470 

AD 

AB 

C5 

LDA 

EX + 1 

A473 

ED 

98 

C5 

SBC 

AX + 1 

A476 

48 



PHA 


A4 77 

98 



TYA 


A478 

48 



PHA 


A479 

BO 

13 


BCS 

$A48E 

A47B 

68 



PLA 


A47C 

68 



PLA 


A47D 

38 



SEC 


A47E 

AD 

97 

C5 

LDA 

AX 

A481 

ED 

AA 

C5 

SBC 

EX 

A484 

A8 



TAY 


A485 

AD 

98 

C5 

LDA 

AX + 1 

A488 

ED 

AB 

C5 

SBC 

EX + 1 

A48B 

48 



PHA 


A48C 

98 



TYA 


A48D 

48 



PHA 


A48E 

68 



PLA 

;h 

A48F 

8D 

A6 

C5 

STA 

XDIFF 

A492 

68 



PLA 


A4 93 

8D 

A7 

C5 

STA 

XDIFF+1 

A496 

A9 

00 


LDA 

#$00 

A4 98 

8D 

A2 

C5 

STA 

DIFFV+1 

A49B 

8D 

Al 

C5 

STA 

DIFFV 

A49E 

38 



SEC 


A49F 

AD 

9F 

C5 

LDA 

YDIFF 

A4A2 

ED 

A6 

C5 

SBC 

XDIFF 

A4A5 

A8 



TAY 


A4A6 

AD 

AO 

C5 

LDA 

YDIFF+1 

A4A9 

ED 

A7 

C5 

SBC 

XDIFF+1 

A4AC 

48 



PHA 


A4AD 

98 



TYA 


A4AE 

48 



PHA 


A4AF 

90 

16 


BCC 

$A4C7 

A4B1 

68 



PLA 


A4B2 

8D 

9F 

C5 

STA 

YDIFF 

A4B5 

68 



PLA 


A4B6 

8D 

AO 

C5 

STA 

YDIFF+1 

A4B9 

EE 

Al 

C5 

INC 

DIFFV 

A4BC 

DO 

03 


BNE 

$A4C1 

A4BE 

EE 

A2 

C5 

INC 

DIFFV+1 

A4 CI 

AD 

Al 

C5 

LDA 

DIFFV 

A4C4 

4C 

9B 

A4 

OMP 

$A49B 

A4C7 

68 



PLA 


A4C8 

68 



PLA 


A4C9 

AD 

98 

C5 

LDA 

AX+1 

A4CC 

8D 

24 

C5 

STA 

VGLA+1 


;EX-AX auf Stack 

;EX groeseer gleich AX ? 

,-Stack bereinigen 
;AX-EX bilden 

;AX-EX auf Stack 

ier ist abs(EX-AX) auf Stack 
;XDIFF = abs(EX-AX) 

;DIFFV = 0 

;YDIFF-XDIFF bilden 

;YDIFF-XDIFF auf Stack 

;YDIFF kleiner XDIFF ? 
;YDIFF = YDIFF - XDIFF 

;DIFFV erhoehen (Zaehler) 

(•Schleife 

(•Stack bereinigen 
;AX mit EX vergleichen 
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A4 CF 

AD 

97 

C5 

LDA 

AX 

A4D2 

8D 

23 

C5 

STA 

VGLA 

A4D5 

AD 

AB 

C5 

LDA 

EX + 1 

A4D8 

8D 

IB 

C5 

STA 

VGLE+1 

A4DB 

AD 

AA 

C5 

LDA 

EX 

A4DE 

8D 

lA 

C5 

STA 

VGLE 

A4E1 

20 

16 

A6 

OSR 

VGLAE 

A4E4 

FO 

20 


BEQ 

$A506 

A4E6 

90 

OE 


BCC 

iA4F6 

A4E8 

AD 

97 

C5 

LDA 

AX 

A4EB 

DO 

03 


BNE 

$A4F0 

A4ED 

CE 

98 

C5 

DEC 

AX + 1 

A4F0 

CE 

97 

C5 

DEC 

AX 

A4F3 

4C 

FE 

A4 

OMP 

$A4FE 

A4F6 

EE 

97 

C5 

INC 

AX 

A4F9 

DO 

03 


BNE 

$A4FE 

A4FB 

EE 

98 

C5 

INC 

AX + 1 

A4FE 

AD 

Al 

C5 

LDA 

DIFFV 

A501 

OD 

A2 

C5 

ORA 

DIFFV+ 

A504 

DO 

03 


BNE 

$A509 

A506 

4C 

CO 

A3 

OMP 

$A3C0 

A509 

4C 

EC 

A3 

OMP 

$A3EC 


YNEXT: 

A50C 

AD 

Al 

C5 

LDA 

DIFFV 

A50F 

OD 

A2 

C5 

ORA 

DIFFV + 

A512 

FO 

OB 


BEQ 

$A51F 

A514 

AD 

Al 

C5 

LDA 

DIFFV 

A517 

DO 

03 


BNE 

$A51C 

A519 

CE 

A2 

C5 

DEC 

DIFFV+ 

A51C 

CE 

Al 

C5 

DEC 

DIFFV 

A51F 

AD 

AD 

C5 

LDA 

AY + 1 

A522 

8D 

24 

C5 

STA 

VGLA+1 

A525 

AD 

AC 

C5 

LDA 

AY 

A528 

8D 

23 

C5 

STA 

VGLA 

A52B 

AD 

A9 

C5 

LDA 

EY + 1 

A52E 

8D 

IB 

C5 

STA 

VGLE + 1 

A531 

AD 

A8 

C5 

LDA 

EY 

A534 

8D 

lA 

C5 

STA 

VGLE 

A537 

20 

16 

A6 

OSR 

VGLAE 

A53A 

FO 

16 


BEQ 

$A552 

A53C 

BO 

09 


BCS 

$A547 

A53E 

EE 

AC 

C5 

INC 

AY 

A541 

DO 

03 


BNE 

$A546 

A543 

EE 

AD 

C5 

INC 

AY + 1 


/Vergleichsroutine 
/gleich, dann zur Schleife 
;AX kleiner EX ? 

;AX vermindern 


;AX erhoehen 


1 

/DIFFV nicht 0 ? 

/zur Schleife 

/zur Schleife (ohne einen 
/Punkt zu setzen) 


1 

/DIFFV = 0 ? 
/DIFFV vermindern 


/AY mit EY vergleichen 


/Vergleichsroutine 
/gleich, dann hier fertig 
/AY groesser als EY ? 

/AY erhoehen 
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A546 

60 



RTS 



A547 

AD 

AC 

C5 

LDA 

AY 

;AY vermindern 

A54A 

DO 

03 


BNE 

$A54F 


A54C 

CE 

AD 

C5 

DEC 

AY + 1 


A54F 

CE 

AC 

C5 

DEC 

AY 


A552 

60 



RTS 



A553 

A5 

A6 


LDA 

$A6 

;neue Zeilennr. (v. FIND) 

A555 

C5 

A8 


CMP 

$A8 

;alte Zeilennr. 

A557 

DO 

06 


BNE 

$A55F 

(■ungleich ? 

A559 

A5 

A7 


LDA 

$A7 


A55B 

C5 

A9 


CMP 

$A9 


A55D 

FO 

2A 


BEQ 

$A589 

(■gleich, dann hier fertig 

A55F 

A5 

A6 


LDA 

$A6 

(■alte Zeil.nr. = neue Znr. 

A561 

85 

A8 


STA 

$A8 


A563 

85 

63 


STA 

$63 


A565 

A5 

A7 


LDA 

$A7 


A567 

85 

62 


STA 

$62 


A569 

85 

A9 


STA 

$A9 


A56B 

A2 

90 


LDX 

#$90 


A56D 

38 



SEC 



A56E 

20 

88 

80 

OSR 

SXFLP 

(■nach Fliessk. wandeln 

A571 

20 

B5 

80 

OSR 

SFACASC 

;in Text umwandeln 

A574 

20 

2B 

AO 

OSR 

OUTASC 

(■Text ausgeben 

A577 

38 



SEC 



A578 

20 

FO 

FF 

OSR 

$FFFO 

;Cursor-Pos. holen 

A57B 

98 



TYA 


;CursorspaIte 

A57C 

E9 

OA 


SBC 

#$0A 

(■minus 10 

A57E 

BO 

FC 


BCS 

$A57C 

(■noch groesser 0 ? 

A580 

49 

FF 


EOR 

#$FF 

;invertieren 

A582 

69 

01 


ADC 

#$01 

; +1 (also 1 - ...) 

A584 

AA 



TAX 


(■Zaehler f. Leerzeichen 

A585 

E8 



INX 



A586 

CA 



DEX 


(■Zaehler vermindern 

A587 

DO 

03 


BNE 

SP OUT 

(■nicht 0, dann ’ " ausg. 

A589 

4C 

BB 

A5 

OMP 

$A5BB 

(■weiter in Suchschleife 

A58C 

A9 

20 


LDA 

#$20 

; Leerzeichen 

A58E 

20 

02 

FF 

JSR 

BSOUT 

(■ausgeben 

A591 

4C 

86 

A5 

OMP 

$A586 

/ S • 0 • 

BEFEIND: 






A594 

20 

DB 

83 

OSR 

INCBASBZ 

(■Code ueberlesen 

A597 

A9 

FF 


LDA 

#$FF 


A599 

85 

A8 


STA 

$A8 

(■Merker f. alte Zeilennr. 

A59B 

85 

A9 


STA 

$A9 


A59D 

AO 

00 


LDY 

#$00 


A59F 

A5 

2B 


LDA 

$2B 

;$20,$21 mit Basic-Anfang 

A5A1 

85 

20 


STA 

$20 

;($2B,$2C) laden 

A5A3 

A5 

2C 


LDA 

$2C 
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A5A5 

85 

21 


STA 

$21 


A5A7 

4C 

DE 

A5 

OMP 

$A5DE 

;in die Suchschleife 

A5AA 

Bl 

7A 


LDA 

($7A),Y 

;akt. Zeichen nach FIND 

A5AC 

FO 

A5 


BEQ 

$A553 

;Zeilenende ?, dann gef. 

A5AE 

Bl 

20 


LDA 

($20),Y 

/momentan gepr. Zeichen 

A5B0 

FO 

09 


BEQ 

$A5BB 

/Zeilenende ?,dann n. gef. 

A5B2 

Bl 

7A 


LDA 

($7A),Y 

A5B4 

Dl 

20 


OMP 

($20),Y 


A5B6 

DO 

03 


BNE 

$A5BB 

/Zeichen ungleich ? 

A5B8 

08 



INY 


/naechstes Zeichen 

A5B9 

DO 

EF 


BNE 

$A5AA 

/Schleife 

A5BB 

Bl 

20 


LDA 

($20),Y 

/morn. Zeichen 

A5BD 

09 

22 


OMP 

#$22 

i 

A5BF 

DO 

03 


BNE 

$A504 

/nein ? 

A5C1 

40 

03 

A6 

OMP 

$A603 

/ s . u . 

A5C4 

20 

DO 

90 

OSR 

IN0$20 

/naechstes Zeichen 

A5C7 

AO 

00 


LDY 

#$00 


A5C9 

Bl 

20 


LDA 

($20),Y 


A5CB 

DO 

DD 


BNE 

$A5AA 

/kein Zeilenende ? 

A5CD 

20 

DO 

90 

OSR 

IN0$20 

/naechstes Zeichen 

A5D0 

AO 

00 


LDY 

#$00 


A5D2 

80 

DD 

05 

STY 

PENDFLAG 

/ Prog.-Ende-F1ag = 0 

A5D5 

Bl 

20 


LDA 

($20),Y 

A5D7 

DO 

05 


BNE 

$A5DE 

/nicht 0-Byte ? 

A5D9 

A9 

01 


LDA 

#$01 

A5DB 

8D 

DD 

05 

STA 

PENDFLAG 

/Programm evtl, zu Ende 

A5DE 

20 

DO 

90 

OSR 

ING$20 

A5E1 

Bl 

20 


LDA 

($20),Y 


A5E3 

DO 

OA 


BNE 

$A5EF 

/kein 0-Byte ?,dann weiter 

A5E5 

AD 

DD 

05 

LDA 

PENDFLAG 

A5E8 

09 

01 


OMP 

#$01 


A5EA 

DO 

03 


BNE 

$A5EF 

/kein Programmende ? 

A5EC 

40 

86 

E3 

OMP 

WARM 

/Zum Warmstart/ fertig 

A5EF 

20 

DO 

90 

OSR 

ING$20 

/naechstes Zeichen 

A5F2 

Bl 

20 


LDA 

($20),Y 

/Zeilennummer low 

A5F4 

85 

A6 


STA 

$A6 


A5F6 

20 

DO 

90 

OSR 

ING$20 


A5F9 

Bl 

20 


LDA 

($20),Y 

/Zeilennummer high 

A5FB 

85 

A7 


STA 

$A7 

A5FD 

20 

DO 

90 

OSR 

ING$20 


A600 

40 

AA 

A5 

OMP 

$A5AA 

/Zeilennummer ausgeben 

A603 

20 

DO 

90 

OSR 

ING$20 

/naechstes Zeichen 

A606 

Bl 

20 


LDA 

($20),Y 


A608 

09 

22 


OMP 

#$22 

^ ■ 

/ 

A60A 

FO 

07 


BEQ 

$A613 

/ja, dann weiter 

A60C 

09 

00 


OMP 

#$00 

A60E 

DO 

F3 


BNE 

$A603 ; 

kein Zeil.ende ?, Schleife 
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A610 

4C 

C7 

A5 

JMP 

$A5C7 

;zur naechsten Zeile 

A613 

4C 

04 

A5 

OMP 

$A5C4 

;zur Suchschleife 

VGLAE: 


;Vgi. 

VGLA 

mit VGLE; 

setzt Carry- und Zero-Flag 

A616 

AD 

23 

05 

EDA 

VGLA 

; 1. Wert (low) 

A619 

CD 

lA 

05 

CMP 

VGLE 

;2. Wert (low) 

A61C 

FO 

09 


BEQ 

$A627 

(•gleich ? 

A61E 

AD 

24 

05 

LDA 

VGLA+1 


A621 

ED 

IB 

05 

SBC 

VGLE+1 

;1.Wert - 2.Wert 

A624 

09 

01 


ORA 

#$01 

(•Ungleichheit markieren 

A626 

60 



RTS 



NÖZ7 

AD 

24 

05 

LDA 

VGLA+1 

(•l.Wert - 2.Wert 

A62A 

ED 

IB 

05 

SBC 

VGLE+1 


A62D 

60 



RTS 



BEFÜESIGN: 






A62E 

20 

02 

82 

JSR 

SGETBYTN 

(•Typ holen (0(1(2(3) 

A631 

86 

AA 


STX 

$AA 


A633 

EO 

04 


CPX 

#$04 


A635 

90 

05 


BCC 

$A63C 

(•kleiner als 4 ? 

N62,l 

A9 

00 


LDA 

#$oc 

;Nr. f. ’bad mode' 

A639 

4C 

80 

00 

00 

OMP 

SERROUT 

(•Fehler ausgeben 

A63C 

A9 

00 


LDA 

#$00 


A63E 

8D 

97 

C5 

STA 

AX 

;Zeilenzaeh1er = 0 

A641 

8D 

AC 

05 

STA 

AY 

(•Zaehler in Zeile = 0 

A644 

85 

A6 


STA 

$A6 

;Byte-Zaehler = 0 

A646 

20 

31 

80 

JSR 

SCHKCOM 

(•Komma ? 

A649 

20 

27 

94 

JSR 

SGETADR 

(•Adresse holen 

A64C 

84 

AE 


STY 

$AE 

(•nach $AE($AF 

A64E 

85 

AF 


STA 

$AF 


A650 

AO 

00 


LDY 

#$00 


A652 

84 

A8 


STY 

$A8 

(•Samrne Ibyte 

A654 

A2 

00 


LDX 

#$00 

(•Bitzaehler 

A656 

Bl 

7A 


LDA 

($7A),Y 

;akt. Code 

A658 

FO 

06 


BEQ 

$A660 

(•Zeilenende ? 

A65A 

20 

DB 

83 

JSR 

INCBASBZ 

;vorruecke n 

A65D 

40 

56 

A6 

JMP 

$A656 

(•bis Zeilenende 

A660 

20 

DB 

83 

JSR 

INCBASBZ 

;Prg.Z. erhoehen 

A66 3 

Bl 

7A 


LDA 

($7A),Y 

(•Vorw.z. low 

A665 

8D 

98 

05 

STA 

AX + 1 

(•speichern 

A668 

20 

DB 

83 

JSR 

INCBASBZ 

(•naechstes Byte 

A66B 

Bl 

7A 


LDA 

($7A),Y 

(•Vorw.z. high 

A66D 

OD 

98 

05 

ORA 

AX + 1 


A670 

DO 

05 


BNE 

$A677 

(Vorw.z. nicht 0 ? 

A672 

A9 

OA 


LDA 

#$0A 

;Nr. F. 'too few lines' 

A674 

4C 

80 

88 

JMP 

SERROUT 

(•Fehler ausgeben 


o o o 
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Nöll 

20 

DB 

83 

JSB 

INOBASBZ 

;Zeilennr. ueberlesen 


A67A 

20 

DB 

83 

JSK 

INOBASBZ 



A67D 

20 

DB 

83 

JSR 

INOBASBZ 



A680 

AO 

00 


FDY 

#$00 



A682 

Bl 

7A 


EDA 

($7A),Y 

;akt. Gode 


A684 

09 

40 


OMP 

#$40 

;Klammeraffe 


A686 

FO 

F5 


BEO 

$A67D 

;ja ?,dann ueberlesen 


A688 

A5 

AA 


EDA 

$AA 

;Design-Typ 


A68A 

FO 

07 


BEQ 

$A693 

;0 ? 


A68C 

09 

02 


OMP 

#$02 



A68E 

FO 

03 


BEQ 

$A693 

;2 ? 


A690 

40 

22 

A7 

JMP 

$A722 

;sonst zu $A722 


Design-Typ 0 und 

2 (normale Gra 

f ik) 


A693 

Bl 

7A 


EDA 

($7A),Y 

;akt. Zeichen 


A695 

09 

41 


OMP 

#$41 

;“A“ ? 


A697 

FO 

18 


BEQ 

$A6B1 



A699 

09 

2E 


OMP 

#$2E 

? 


A69B 

FO 

14 


BEQ 

$A6B1 



A69D 

09 

20 


OMP 

#$20 

■ ■ “9 

/ 


A69F 

FO 

10 


BEQ 

$A6B1 



A6A1 

09 

42 


OMP 

#$42 

; ' B" ? 


A6A3 

FO 

05 


BEQ 

$A6AA 



A6A5 

A9 

OB 


EDA 

#$0B 

;Nr. f. ’bad char f a 

m ■ 

A6A7 

40 

80 

00 

00 

JMP 

SERROUT 

(Fehler ausgeben 


A6AA 

A5 

A8 


EDA 

$A8 



A6AC 

10 

30 

93 

ORA 

GBITTABS, 

X ;entspr. Bit setzen 


A6AF 

85 

A8 


STA 

$A8 



A6B1 

E8 



INX 


;Bitzaehler 


A6B2 

FO 

08 


OPX 

#$08 



A6B4 

DO 

07 


BNE 

$A67D 

(•nicht abgelaufen ? 


A6B6 

A4 

A6 


LDY 

$A6 

;Bytezaeh1er 


A6B8 

A5 

A8 


EDA 

$A8 

;Samme1-Byte 


A6BA 

91 

AE 


STA 

($AE) ,Y 

(•Ergebnis speichern 


A6BC 

E6 

A6 


INO 

$A6 

;Bytezaeh1er erh. 


A6BF 

FE 

AO 

05 

INO 

AY 

;Bytezaeh1er in Zeile 

erh 

A6C1 

A2 

00 


LDX 

#$00 

(•Bitzaehler = 0 


A6C3 

86 

A8 


STX 

$A8 

(•Sammelbyte = 0 


A6C5 

A5 

AA 


EDA 

$AA 

; Design-Typ 


A6C7 

09 

02 


OMP 

#$02 



A6C9 

BO 

07 


BOS 

$A6D2 

(•groesser gleich 2 ? 


A6CB 

AD 

AO 

05 

EDA 

AY 

(•Zaehler in Zeile 


A6CF 

09 

03 


OMP 

#$03 



A6D0 

DO 

AB 


BNE 

$A67D 

(•nicht 3( dann Schleife 

A6D2 

AO 

00 


LDY 

#$00 



A6D4 

80 

AO 

05 

STY 

AY 

;Bytezaeh1er in Zeile 

= 0 

A6D7 

FE 

97 

05 

INO 

AX 

(•Zeilenzaehler erhoehen 

A6DA 

A5 

AA 


EDA 

$AA 

;Design-Typ 


A6DC 

09 

02 


OMP 

#$02 



A6DE 

90 

07 


BOO 

$A6E7 

(•kleiner als 2 ? 
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A6E0 

AD 

97 

05 

LDA 

AX 

;Zeilenzaeh1er 

A6E3 

C9 

08 


CMP 

#$08 


A6E5 

FO 

OA 


BEQ 

$A6F1 

;= 8 ? 

A6E7 

AD 

97 

05 

LDA 

AX 


A6EA 

C9 

15 


CMP 

#$15 


A6EC 

FO 

03 


BEQ 

$A6F1 

;= 21 ? 

A6EE 

4C 

50 

A6 

OMP 

$A650 

(•Schleife 

A6F1 

Bl 

7A 


LDA 

($7A),Y 


A6F3 

FO 

06 


BEQ 

$A6FB 

;Zeilenende, dann ferti; 

A6F5 

20 

DB 

83 

OSR 

INCBASBZ 

;naechstes Zeichen 

A6F8 

4C 

Fl 

A6 

OMP 

$A6F1 

;Schleife 

A6FB 

4C 

2A 

82 

OMP 

ENDSMB 

(•Befehl fertig 

UEBER4: 





;4 

Byte ueberlesen und fer 

A6FE 

20 

DB 

83 

OSR 

INCBASBZ 


A701 

20 

DB 

83 

OSR 

INCBASBZ 


A704 

20 

DB 

83 

OSR 

INCBASBZ 


A707 

40 

74 

91 

QMP 

BEFO 


DESTAB3: 






A70A 

CO 

00 

30 

00 00 

00 03 00 

(•beide Bits gesetzt 

DESTAB2: 






A712 

80 

00 

20 

00 08 

00 02 00 

(•jeweils 1. Bit gesetzt 

DESTABl: 






A71A 

40 

00 

10 

00 04 

00 01 00 

(•jeweils 2. Bit gesetzt 

;Desigr 

i-Typ : 

1 und 3 (Multi-Colour) 

A722 

AO 

00 


LDY 

#$00 


A724 

Bl 

7A 


LDA 

($7A),Y 

;akt. Zeichen 

A726 

09 

44 


CMP 

#$44 

(•’D- 

A728 

DO 

OB 


BNE 

$A735 

(•nein ? 

A72A 

A5 

A8 


LDA 

$A8 

(•Sammelbyte 

A72C 

ID 

OA 

A7 

ORA 

DESTAB3,X 

;2 Bit setzen 

A72F 

85 

A8 


STA 

$A8 


A731 

E8 



INX 


(•naechstes Bit(paar) 

A732 

40 

Bl 

A6 

OMP 

$A6B1 

(•zur Schleife 

A735 

09 

43 


CMP 

#$43 

(•’c- 

A737 

DO 

OB 


BNE 

$A744 

(•nein ? 

A739 

A5 

A8 


LDA 

$A8 


A73B 

ID 

12 

A7 

ORA 

DESTAB2,X 

(•vorderes Bit setzen 

A73E 

85 

A8 


STA 

$A8 


A740 

E8 



INX 


(•naechstes Bit(paar) 

A741 

40 

Bl 

A6 

OMP 

$A6B1 

(•zur Schleife 

A744 

09 

42 


CMP 

#$42 

;"B" 

A746 

DO 

OB 


BNE 

$A753 

(•nein ? 
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A748 

A5 

A8 


LDA 

$A8 


A74A 

ID 

lA 

A7 

ORA 

DESTAB1,X 

(■hinteres Bit setzen 

A74D 

85 

A8 


STA 

$A8 


A74F 

E8 



INX 


;naechstes Bit(paar) 

A750 

4C 

Bl 

A6 

OMP 

$A6B1 

;zur Schleife 

A753 

C9 

2E 


OMP 

#$2E 

. * * 

/ • 

A755 

FO 

OD 


BEQ 

$A764 

;ja, dann weiter 

A757 

C9 

41 


OMP 

#$41 

,• A’ 

A759 

FO 

09 


BEQ 

$A764 

;ja, dann weiter 

A75B 

C9 

20 


OMP 

#$20 

. * * 

/ 

A75D 

FO 

05 


BEQ 

$A764 

;ja, dann weiter 

A75F 

A9 

OB 


LDA 

#$0B 

;Nr. f. ’bad char f a mo 

A761 

40 

80 

00 

00 

OMP 

SERROUT 

(•Fehler ausgeben 

A764 

E8 



INX 


(■naechstes Bit(paar) 

A765 

40 

Bl 

A6 

OMP 

$A6B1 

(•zur Schleife 

BEFRLOCM: 






A768 

20 

02 

82 

OSR 

SGETBYTN 

(■Sprite-Nr. holen 

A76B 

8E 

BB 

05 

STX 

M0BNR2 


A76E 

8E 

BO 

05 

STX 

MOBNR 


A771 

OE 

BB 

05 

ASL 

M0BNR2 

(•doppelte Spsrite-Nr. 

A774 

AD 

10 

DO 

LDA 

VI0MX8 

;X-Koord.-Uebertraege 

A777 

ID 

78 

97 

ORA 

MBITTABS, 

X 

A77A 

OD 

10 

DO 

OMP 

VI0MX8 


A77D 

DO 

08 


BNE 

$A787 

(•war Bit nicht gesetzt ? 

A77F 

A9 

01 


LDA 

#$01 


A781 

8D 

98 

05 

STA 

AX + 1 

;X-Koord. High = 1 

A784 

40 

80 

A7 

OMP 

$A780 


A787 

A9 

00 


LDA 

#$00 


A789 

8D 

98 

05 

STA 

AX + 1 

;X-Koord. High = 0 

A78C 

AO 

BB 

05 

LDY 

M0BNR2 


A78F 

B9 

00 

DO 

LDA 

VIOMX,Y 

;X-Koordinate (low) 

A792 

8D 

97 

05 

STA 

AX 

(•als Anfangswert 

A795 

B9 

01 

DO 

LDA 

VIOMY,Y 

;Y-Koordinate 

A798 

8D 

AO 

05 

STA 

AY 


A79B 

A9 

00 


LDA 

#$00 


A79D 

8D 

AD 

05 

STA 

AY + 1 

;Y-Koordinate (High) 

A7A0 

20 

6B 

93 

OSR 

$936B 

;EX,EY und $F7 holen 

A7A3 

40 

E2 

95 

OMP 

$95E2 

;in den MMOB-Befehl 

BEFCMOB: 






A7A6 

20 

02 

82 

OSR 

SGETBYTN 

;1. Farbe holen 

A7A9 

8E 

25 

DO 

STX 

VIGMMGl 

;in VIG eintragen 

A7AC 

20 

FO 

81 

OSR 

SGETBYTG 

;2. Farbe holen 

A7AF 

8E 

26 

DO 

STX 

VIGMMG2 


A7B2 

40 

2A 

82 

OMP 

ENDSMB 

(•Befehl fertig 
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BEFBCKGNDS: 


A7B5 

AD 

11 

DO 

LDA 

VICSTl ;VIC Steuerregister 

1 

A7B8 

29 

DF 


AND 

#$DF ;Punktqrafik ausschalten 

A7BA 

09 

40 


ORA 

#$40 /Mehrfarbigen Hi.qr. 

ein 

A7BC 

8D 

11 

DO 

STA 

VICSTl 



A7BF 

AD 

16 

DO 

LDA 

VICST2 ;VIC Steuerregister 

2 

A7C2 

29 

EF 


AND 

#$EF /Mehrfarbenmodus aus 

A7C4 

8D 

16 

DO 

STA 

VICST2 



A7C7 

20 

02 

82 

JSR 

SGETBYTN /Hintergrundfarbe 

0 

holen 

A7CA 

8E 

21 

DO 

STX 

VICHIFAR 



A7CD 

20 

FC 

81 

OSR 

SGETBYTC /Hintergrundfarbe 

1 

holen 

A7D0 

8E 

22 

DO 

STX 

VICHIFAR+1 



A7D3 

20 

FC 

81 

OSR 

SGETBYTC /Hintergrundfarbe 

2 

holen 

A7D6 

8E 

23 

DO 

STX 

VICHIFAR+2 



A7D9 

20 

FC 

81 

OSR 

SGETBYTC /Hintergrundfarbe 

3 

holen 

A7DC 

8E 

24 

DO 

STX 

VICHIFAR+3 



A7DF 

40 

2A 

82 

OMP 

ENDSMB /Befehl fertig 




BEFPAUSE: 


A7E2 

20 

73 

00 

JSR 

CHRGET 

/Code ueberlesen 

A7E5 

AO 

00 


LDY 

#$00 


A7E7 

Bl 

7A 


LDA 

($7A),Y 

/akt. Basic-Code 

A7E9 

C9 

22 


CMP 

#$22 

^ • 

/ 

A7EB 

DO 

23 


BNE 

$A810 

/kein Anf.Zeichen ? 

A7ED 

A5 

7A 


LDA 

$7A 

/Prg.Z. vermindern 

A7EF 

DO 

02 


BNE 

$A7F3 


A7F1 

C6 

7B 


DEC 

$7B 


A7F3 

C6 

7A 


DEC 

$7A 


A7F5 

20 

B7 

86 

JSR 

SGETSTR 

/String holen 

A7F8 

85 

A9 


STA 

$A9 

/Stringadresse nach $A8,$A9 

A7FA 

86 

A8 


STX 

$A8 


A7FC 

AO 

00 


LDY 

#$00 


A7FE 

Bl 

A8 


LDA 

($A8),Y 

/Zeichen aus String 

A800 

20 

D2 

FF 

JSR 

BSOUT 

/ausgeben 

A803 

C8 



INY 


/naechstes Zeichen 

A804 

C4 

69 


CPY 

$69 

/ Stringlaenge 

A806 

DO 

F6 


BNE 

$A7FE 

/nicht erreicht ? 

A808 

A9 

OD 


LDA 

#$0D 

;(CR) 

A80A 

20 

D2 

FF 

OSR 

BSOUT 

/ausgeben 

A80D 

20 

31 

80 

□ SR 

SCHKCOM 

/Komma ? 

A810 

20 

27 

94 

OSR 

SGETADR 

/Wert f. Pause holen 

A813 

A9 

00 


LDA 

#$00 


A815 

8D 

17 

C5 

STA 

ZAESEC 

/Sekundenzaeh1er = 0 

A818 

8D 

16 

C5 

STA 

ZAEIRQ 

/60ste1-Sek.-Zae. = 0 

A81B 

20 

E4 

FF 

□ SR 

GETIN 

/Zeichen von Tastatur 

A81E 

C9 

OD 


CMP 

#$0D 

/RETURN-Taste 

A820 

FO 

OC 


BEQ 

$A82E 

/ja, dann Ende 

A822 

AD 

17 

C5 

LDA 

ZAESEC 

/Sekundenzaeh1er 

A825 

C5 

65 


CMP 

$65 

/SolIwert 

A827 

BO 

05 


BCS 

$A82E 

/gleich, dann Ende 

A829 

FO 

03 


BEQ 

$A82E 

/(unsinning) 



Kommentiertes Assembler-Listing 


219 


A82B 

4C 

IB 

A8 

OMP 

$A81B 

; 2 ur Warte-Schleife 

A82E 

4C 

2A 

82 

OMP 

ENDSMB 

•Befehl fertig 

BEFNRM: 







A831 

20 

37 

A8 

OSR 

NRM 

/Normalmodus einschalten 

A834 

4C 

74 

91 

OMP 

BEFO 

; 2 um Leerbefehl 

NRM: 







A837 

A9 

IB 


LDA 

#$1B 


A839 

8D 

11 

DO 

STA 

VIOSTl 

;VIG-Steuerreg.1 auf $1B 

A83C 

A9 

15 


LDA 

#S15 

A83E 

8D 

18 

DO 

STA 

VIOADS 

; VIG-Adressreg. auf $15 

A841 

A9 

08 


LDA 

#$08 

A843 

8D 

16 

DO 

STA 

VI0ST2 

; V IG-St euer reg. 2 auf $08 

A846 

A9 

07 


LDA 

#$07 

A848 

8D 

00 

DD 

STA 

0IA2PRA 

;GIA2-Port A auf $07 

A84B 

A9 

63 


LDA 

#$63 


A84D 

8D 

B3 

05 

STA 

GMEMFLAG 

;Grafik-RAM-Flag 

A850 

A9 

04 


LDA 

#$04 

A852 

8D 

88 

02 

STA 

VIDRAMHI 

,-Video-RAM nach $0400 

A855 

60 



RTS 



BEFMOBOFF: 






A856 

20 

02 

82 

OSR 

SGETBYTN 

;Sprite-Nr. holen 

A859 

AD 

15 

DO 

LDA 

VIGMEA 

;Sprite-Ein/Aus-Register 

A85C 

3D 

80 

97 

AND 

MBITTABL 

,X ;entspr. Bit loesehen 

A85F 

8D 

15 

DO 

STA 

VIGMEA 

A862 

40 

2A 

82 

OMP 

ENDSMB 

,Befehl fertig 

BEFOFF 







A865 

A2 

00 


LDX 

#$00 


A867 

8E 

06 

05 

STX 

FLASHFL 

,-Flash-Flag ruecks. 

A86A 

8A 



TXA 


A86B 

9D 

04 

05 

STA 

FLASHFLS 

,X ;Flag pro Farbe loeschen 

A86E 

E8 



INX 


;naechste Farbe 

A86F 

EO 

10 


OPX 

#$10 

;16 Farben 

A871 

90 

F8 


BOO 

$A86B 

;Farbzaeh1er n. abgel. ? 

A873 

40 

74 

91 

OMP 

BEFO 

;zum Leerbefehl 

BEFARC 







A876 

’ 20 

8D 

A8 

OSR 

ARGl 


A879 

AD 

18 

05 

LDA 

STRZl 

;eff. Startwinkel 

A87C 

85 

A8 


STA 

$A8 


A87E 

AD 

19 

05 

LDA 

STRZ2 


A881 

85 

A9 


STA 

$A9 


A883 

A9 

OA 


LDA 

#$0A 


A885 

85 

21 


STA 

$21 

;Flag f. mehrere Punkte 

A887 

20 

4F 

A9 

3 SR 

KREISl 

;Kreis-Routine 

A88A 

40 

2A 

82 

□ MP 

ENDSMB 

/Befehl fertig 
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ARCl: 


A88D 

20 

OB 

83 

OSR 

INOBASBZ 

;Gode ueberl. 

A890 

A9 

00 


LOA 

#$00 


A892 

8D 

70 

05 

STA 

OREHSINN 

,-Flags ruecks. 

A895 

8D 

2F 

05 

STA 

UEBEROREH 

A898 

20 

27 

94 

OSR 

SGETAOR 

;Mittelp. X-Koord. holen 

A89B 

80 

4B 

OB 

STY 

KMX 

A89E 

80 

40 

OB 

STA 

KMX + 1 


A8A1 

20 

31 

80 

OSR 

SOHKOOM 

;Komma ? 

A8A4 

20 

27 

94 

JSR 

SGETAOR 

;Mittelp. Y-Koord. holen 

A8A7 

80 

49 

OB 

STY 

KMY 

A8AA 

20 

31 

80 

OSR 

SOHKOOM 

;Komma ? 

A8AD 

20 

27 

94 

OSR 

SGETAOR 

;Startwinkel holen 

A8B0 

84 

A8 


STY 

$A8 


A8B2 

85 

A9 


STA 

$A9 


A8B4 

20 

31 

80 

JSR 

SOHKOOM 

;Komma ? 

A8B7 

20 

27 

94 

JSR 

SGETAOR 

;Endwinkel holen 

ABBA 

84 

AO 


STY 

$AG 


A8BC 

85 

AO 


STA 

$A0 


ABBE 

20 

31 

80 

JSR 

SOHKOOM 

;Komma ? 

A8C1 

20 

27 

94 

JSR 

SGETAOR 

;Winkel-Schrittw. holen 

A8C4 

80 

4E 

OB 

STA 

WINKSW+1 


A8C7 

80 

40 

OB 

STY 

WINKSW 


A8CA 

A5 

A9 


LOA 

$A9 

;Anfangswinke 1 mit Endw. 

A8CC 

80 

24 

05 

STA 

VGLA+1 

;vergleichen 

A8CF 

A5 

A8 


LOA 

$A8 

A8D1 

80 

23 

05 

STA 

VGLA 


A8D4 

A5 

AO 


LOA 

$A0 


A8D6 

80 

IB 

05 

STA 

VGLE+1 


A8D9 

A5 

AO 


LOA 

SAG 


A8DB 

80 

lA 

05 

STA 

VGLE 


A8DE 

20 

16 

A6 

JSR 

VGLAE 

;Vergleichsroutine 

A8E1 

90 

18 


BOO 

$A8FB 

;Anf.Wi. kleiner Endwi. ? 

A8E3 

AO 

70 

05 

LOA 

OREHSINN 


A8E6 

49 

OA 


EOR 

#$0A 

;Flag umdrehen 

A8E8 

80 

70 

05 

STA 

OREHSINN 

A8EB 

A6 

AO 


LOX 

SAG 

;$A8,$A9 mit $AG,SAO 

A8ED 

A4 

AO 


LOY 

SAO 

;vertauschen 

A8EF 

A5 

A8 


LOA 

$A8 


A8F1 

85 

AO 


STA 

SAG 


A8F3 

A5 

A9 


LOA 

$A9 


A8F5 

85 

AO 


STA 

SAO 


A8F7 

86 

A8 


STX 

SA8 


A8F9 

84 

A9 


STY 

$A9 


A8FB 

A5 

AO 


LOA 

SAG 

;eff. Endwinkel merken 

A8FD 

80 

18 

05 

STA 

STRZl 


A900 

A5 

AO 


LOA 

$A0 


A902 

80 

19 

05 

STA 

STRZ2 


A905 

20 

FO 

81 

JSR 

SGETBYTG 

(•Radius X-Ri. holen 

A908 

8E 

48 

OB 

STX 

KRX 


A90B 

20 

FO 

81 

JSR 

SGETBYTG 

(•Radius Y-Ri. holen 
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A90E 

8E 

05 

CB 

STX 

KRY 

A911 

20 

70 

93 

3SR 

GETPKTF ;Punktfarbe holen 

KREIS: 






A914 

A9 

14 


LOA 

#$14 ;Flaq f. mehrere Punkte 

A916 

85 

21 


STA 

$21 

A918 

A5 

A8 


LOA 

$A8 ;Startwinkel sw merken 

A91A 

48 



PHA 


A91B 

A5 

A9 


LOA 

$A9 

A91D 

48 



PHA 


A91E 

20 

07 

AA 

OSR 

A8A90IV90 ;Startwinke1 / 90 

A921 

20 

01 

AA 

JSR 

SINMALKRX ;sin(sw) * KRX 

A924 

A5 

65 


LOA 

$65 ,-Ergebnis nach $AA,$AB 

A926 

85 

AA 


STA 

$AA 

A928 

A5 

64 


LOA 

$64 

A92A 

85 

AB 


STA 

$AB 

A92C 

20 

IF 

AA 

OSR 

COSMALKRY ;cos(sw) * KRY 

A92F 

A5 

65 


LOA 

$65 /Ergebnis nach $AE,$AF 

A931 

85 

AE 


STA 

$AE 

A933 

A5 

64 


LOA 

$64 

A935 

85 

AF 


STA 

$AF 

A937 

20 

71 

AA 

asR 

PKBER ;Punktkooord. berechnen 

A93A 

A5 

AE 


LOA 

$AE /Ergebnis nach EX,EY 

A93C 

80 

A8 

05 

STA 

EY 

A93F 

A5 

AA 


LOA 

$AA 

A941 

80 

AA 

05 

STA 

EX 

A944 

A5 

AB 


LOA 

$AB 

A946 

80 

AB 

05 

STA 

EX + 1 

A949 

68 



PLA 


A94A 

85 

A9 


STA 

$A9 

A94C 

68 



PLA 


A94D 

85 

A8 


STA 

$A8 

KREISl 






A94F 

A5 

A8 


LOA 

$A8 /Winkel auf Stapel legen 

A951 

48 



PHA 


A952 

A5 

A9 


LOA 

$A9 

A954 

48 



PHA 


A955 

20 

07 

AA 

3SR 

A8A90IV90 /Winkel / 90 

A958 

20 

01 

AA 

3SR 

SINMALKRX /sin(wi) * KRX 

A95B 

84 

AA 


STY 

$AA /Ergebnis nach $AA,$AB 

A95D 

85 

AB 


STA 

$AB 

A95F 

20 

IF 

AA 

JSR 

COSMALKRY /cos(wi) * KRY 

A962 

84 

AE 


STY 

$AE /Ergebnis nach $AE,$AF 

A964 

85 

AF 


STA 

$AF 

A966 

20 

71 

AA 

JSR 

PKBER /Punktkoord. berechnen 

A969 

A5 

AE 


LOA 

$AE /Ergebnis nach AX,AY 

A96B 

80 

AC 

05 

STA 

AY 

A96E 

A5 

AA 


LOA 

$AA 

A970 

80 

97 

05 

STA 

AX 

A973 

A5 

AB 


LOA 

$AB 

A975 

80 

98 

05 

STA 

AX + 1 
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A978 

AD 

97 

05 

LDA 

AX ;AX,AX+1 und AY sichern 

A97B 

48 



PHA 


A97C 

AD 

AO 

05 

LDA 

AY 

A97F 

48 



PHA 


A980 

AD 

98 

05 

LDA 

AX + 1 

A983 

48 



PHA 


A984 

20 

5E 

A3 

OSR 

LINZEI ;Linie zeichnen 

A987 

20 

OE 

94 

OSR 

KERROMEIN ;Kernal ein 

A98A 

68 



PLA 

;alte Werte v. AX,AY n. EX,EY 

A98B 

8D 

AB 

05 

STA 

EX + 1 

A98E 

68 



PLA 


A98F 

8D 

A8 

05 

STA 

EY 

A992 

68 



PLA 


A993 

8D 

AA 

05 

STA 

EX 

A996 

68 



PLA 

;alten Winkelwert n. $A8,$A9 

A997 

85 

A9 


STA 

$A9 

A999 

68 



PLA 


A99A 

85 

A8 


STA 

$A8 

A99C 

A5 

21 


LDA 

$21 ;Mehrfacht lag 

A99E 

09 

14 


OMP 

#$14 

A9A0 

FO 

01 


BEQ 

$A9A3 /gesetzt ? 

A9A2 

60 



RTS 

/sonst fertig 

A9A3 

AD 

70 

05 

LDA 

DREHSINN /Flag 

A9A6 

09 

OA 


OMP 

#$0A 

A9A8 

DO 

21 


BNE 

$A90B /nicht gesetzt ? 

A9AA 

38 



SEO 


A9AB 

A5 

A8 


LDA 

$A8 /$A8,$A9 = $A8,$A9 - Wink.sw. 

A9AD 

ED 

4D 

OB 

SBO 

WINK SW 

A9B0 

85 

A8 


STA 

$A8 

A9B2 

A5 

A9 


LDA 

$A9 

A9B4 

ED 

4E 

OB 

SBO 

WINKSW+1 

A9B7 

85 

A9 


STA 

$A9 

A9B9 

BO 

IF 


BOS 

$A9DA 

A9BB 

A9 

OA 


LDA 

#$0A 

A9BD 

8D 

2F 

05 

STA 

LIEBERDREH / Lieber 1 auf-F 1 ag setzen 

A9C0 

A9 

68 


LDA 

#$68 /360 nach $A8,$A9 

A9C2 

85 

A8 


STA 

$A8 

A9C4 

A9 

01 


LDA 

#$01 

A9C6 

85 

A9 


STA 

$A9 

A9C8 

40 

DA 

A9 

OMP 

$A9DA /weiter s.u. 

A9CB 

18 



OLO 


A9CC 

A5 

A8 


LDA 

$A8 /$A8,$A9 = $A8,$A9 + Wink.sw. 

A9CE 

6D 

4D 

OB 

ADO 

WINK SW 

A9D1 

85 

A8 


STA 

$A8 

A9D3 

A5 

A9 


LDA 

$A9 

A9D5 

6D 

4E 

OB 

ADO 

WINKSW+1 

A9D8 

85 

A9 


STA 

$A9 

A9DA 

8D 

24 

05 

STA 

VGLA+1 

A9DD 

A5 

A8 


LDA' 

$A8 
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A9DF 

8D 

23 

05 

STA 

VGEA 

;$A8,$A9 und $AC,$AD als 

A9E2 

A5 

AD 


EDA 

$AD 

;als Vergleichsw. speich. 

A9E4 

8D 

IB 

05 

STA 

VGEE+1 

A9E7 

A5 

AO 


EDA 

SAG 


A9E9 

8D 

lA 

05 

STA 

VGEE 


A9EC 

AD 

70 

05 

EDA 

DREHSINN 

;Flag 

A9EF 

C9 

OA 


OMP 

#$0A 

A9F1 

DO 

03 


BNE 

$A9F6 

,-nicht gesetzt ? 

A9F3 

4C 

57 

AB 

OMP 

$AB57 

A9F6 

20 

16 

A6 

OSR 

VGEAE 

; Vg1.-Routine 

A9F9 

FO 

03 


BEQ 

$A9FE 

;akt.Wi. = Endwi. ? 

A9FB 

90 

01 


BOO 

$A9FE 

;akt.Wi. kleiner Endwi. ? 

A9FD 

60 



RTS 


;sonst fertig 

A9FE 

40 

4F 

A9 

OMP 

KREISl 

;Schleife 

SINMALKRX 






AAOl 

20 

3D 

AA 

OSR 

A8A9B0GM 

,-Winkel n. Bogenmass 

AA04 

20 

IF 

80 

OSR 

SSIN 

;Sinus her. 

AA07 

20 

91 

80 

OSR 

SFAGARG 

,-Sinus nach ARG 

AAOA 

AD 

48 

OB 

EDA 

KRX 

; R a d i u s X 

AAOD 

85 

63 


STA 

$63 


AAOF 

A5 

A9 


EDA 

$A9 


AAll 

85 

62 


STA 

$62 


AA13 

A2 

90 


EDX 

#$90 


AA15 

38 



SEO 



AA16 

20 

88 

80 

OSR 

SXFEP 

;n. Fliessk. 

AA19 

20 

9A 

80 

OSR 

SFMUET 

;mal Sinus 

AAIC 

40 

16 

80 

OMP 

SFACADR 

(-Ergebnis n. Adressformat 

COSMALKRY 






AAIF 

20 

3D 

AA 

OSR 

A8A9B0GM 

(-Winkel n. Bogenmass 

AA22 

20 

28 

80 

OSR 

SGOS 

(-Cosinus berechnen 

AA25 

20 

91 

80 

OSR 

SFAGARG 

(-n. Argument uebertr. 

AA28 

AD 

05 

OB 

EDA 

KRY 

(-Radius Y 

AA2B 

85 

63 


STA 

$63 


AA2D 

A5 

A9 


EDA 

$A9 


AA2F 

85 

62 


STA 

$62 


AA31 

A2 

90 


EDX 

#$90 


AA33 

38 



SEO 



AA34 

20 

88 

80 

OSR 

SXFEP 

(-n. Fliessk. wandeln 

AA37 

20 

9A 

80 

OSR 

SFMUET 

;mal ARG (Cosinus) 

AA3A 

40 

16 

80 

OMP 

SFACADR 

(-Ergebnis n. Adr.form. 

A8A9B0GM: 






AA3D 

A5 

A8 


EDA 

$A8 

(-$A8,$A9 

AA3F 

85 

63 


STA 

$63 


AA41 

A5 

A9 


EDA 

$A9 


AA43 

85 

62 


STA 

$62 


AA45 

A2 

90 


EDX 

#$90 
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AA47 

38 



SEC 




AA48 

20 

88 

80 

OSR 

SXFLP 

;n. Fliessk. 


AA4B 

20 

91 

80 

OSR 

SFACARG 

; n. ARG 


AA4E 

A9 

A8 


LDA 

#$A8 

;Adr. von Konstante 1 

PI 

AA50 

AO 

AE 


LDY 

#$AE 



AA52 

20 

A3 

80 

OSR 

SFLDFACK 

;FAC mit PI laden 


AA55 

20 

9A 

80 

OSR 

SFMULT 

;mal $A8,$A9 


AA58 

20 

91 

80 

OSR 

SFACARG 

;Erg. n. ARG 


AA5B 

A9 

B4 


LDA 

#$B4 

;Konst. 180 


AA5D 

85 

63 


STA 

$63 



AA5F 

A9 

00 


LDA 

#$00 



AA61 

85 

62 


STA 

$62 



AA63 

A2 

90 


LDX 

#$90 



AA65 

38 



SEC 




AA66 

20 

88 

80 

OSR 

SXFLP 

;n. Fliessk. 


AA69 

A5 

61 


LDA 

$61 



AA6B 

A4 

70 


LDY 

$70 



AA6D 

20 

AC 

80 

OSR 

SFDIV 

;FAC/180 


AA70 

60 



RTS 


;FAC = $A8/A9 * PI / 

180 

PKBER: 






(■absolute Punktkoord 

. ber 

AA71 

A5 

20 


LDA 

$20 

;DIV(Winkel,90) 


AA73 

C9 

00 


CMP 

#$00 



AA75 

DO 

06 


BNE 

$AA7D 

(•nicht 0 ? 


AA77 

20 

C8 

AA 

OSR 

KMYMINUS 



AA7A 

4C 

97 

AA 

OMP 

KMXPLUS 



AA7D 

C9 

01 


CMP 

#$01 



AA7F 

DO 

06 


BNE 

$AA87 

(•nicht 1 ? 


AA81 

20 

A7 

AA 

OSR 

KMYPLUS 



AA84 

4C 

97 

AA 

OMP 

KMXPLUS 



AA87 

C9 

02 


CMP 

#$02 



AA89 

DO 

06 


BNE 

$AA91 

(•nicht 2 ? 


AA8B 

20 

BO 

AA 

OSR 

KMXMINUS 



AA8E 

4C 

A7 

AA 

OMP 

KMYPLUS 



AA91 

20 

BO 

AA 

OSR 

KMXMINUS 



AA94 

4C 

C8 

AA 

OMP 

KMYMINUS 



KMXPLUS: 







AA97 

18 



CLC 




AA98 

A5 

AA 


LDA 

$AA 

(•$AA($AB = $AA($AB + 

KMX 

AA9A 

6D 

4B 

CB 

ADC 

KMX 



AA9D 

85 

AA 


STA 

$AA 



AA9F 

A5 

AB 


LDA 

$AB 



AAAl 

6D 

4C 

CB 

ADC 

KMX + 1 



AAA4 

85 

AB 


STA 

$AB 



AAA6 

60 



RTS 
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KMYPLUS: 


AAA7 

18 



OLO 



AAA8 

A5 

AE 


LDA 

$AE 

;$AE = $AE + KMY 

AAAA 

6D 

49 

OB 

ADO 

KMY 


AAAD 

85 

AE 


STA 

$AE 


AAAF 

60 



RTS 



KMXMINUS: 






AABO 

38 



SEO 



AABl 

AD 

4B 

OB 

LDA 

KMX 

;$AA,$AB = KMX - $AA,$AB 

AAB4 

E5 

AA 


SBO 

$AA 


AAB6 

85 

AA 


STA 

$AA 


AAB8 

AD 

40 

OB 

LDA 

KMX + 1 


AABB 

E5 

AB 


SBO 

$AB 


AABD 

85 

AB 


STA 

$AB 


AABF 

BO 

06 


BOS 

$AA07 

,-nicht negativ ? 

AACl 

A9 

00 


LDA 

#$00 

(■sonst $AA,$AB = 0 

AAC3 

85 

AA 


STA 

$AA 


AAC5 

85 

AB 


STA 

$AB 


AAC7 

60 



RTS 



KMYMINUS: 






AAC8 

38 



SEO 



AAC9 

AD 

49 

OB 

LDA 

KMY 

;$AE = KMY - $AE 

AACC 

E5 

AE 


SBO 

$AE 


AACE 

85 

AE 


STA 

$AE 


AADO 

BO 

F5 


BOS 

$AA07 

(•nicht negativ ? 

AAD2 

A9 

00 


LDA 

#$00 

(•sonst $AE = 0 

AAD4 

85 

AE 


STA 

$AE 


AAD6 

60 



RTS 



A8A9DIV90: 






AAD7 

A9 

5A 


LDA 

#$5A 

;90 als Divisor 

AAD9 

8D 

BB 

OB 

STA 

IDIVSOR 


AADC 

A9 

00 


LDA 

#$00 


AADE 

8D 

BO 

OB 

STA 

IDIVSOR+1 

AAEl 

A5 

A8 


LDA 

$A8 

;$A8($A9 als Dividend 

AAE3 

8D 

00 

OB 

STA 

IDIVDEND 


AAE6 

A5 

A9 


LDA 

$A9 


AAE8 

8D 

01 

OB 

STA 

IDIVDEND+1 

AAEB 

20 

45 

8F 

OSR 

IDIV 

(•Integer-Division 

AAEE 

AD 

02 

OB 

LDA 

IDIVREST 

(■Rest nach $A8,$A9 

AAFl 

85 

A8 


STA 

$A8 

;($A8,$A9 = $A8,$A9 mod 90) 

AAF3 

AD 

03 

OB 

LDA 

IDIVREST+1 

AAF6 

85 

A9 


STA 

$A9 


AAF8 

AD 

00 

OB 

LDA 

IDIVDEND 

;Div.-Ergebnis nach $20 

AAFB 

85 

20 


STA 

$20 

;($20 = $A8($A9 div 90) 

AAFD 

09 

01 


OMP 

#$01 


AAFF 

FO 

05 


BEQ 

$AB06 

;i ? 

ABOl 

09 

03 


OMP 

#$03 


AB03 

FO 

01 


BEQ 

$AB06 

;3 ? 
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ABOS 

60 



RTS 


(•sonst fertig 

AB07 

A9 

SA 


LOA 

#$SA 

;$A8 = 90 - $A8 

AB09 

ES 

A8 


SBO 

$A8 


ABOB 

8S 

A8 


STA 

$A8 


ABOD 

AS 

20 


LOA 

$20 

(•Akku und Flags von $20 

ABOF 

60 



RTS 



BEF ANGL: 






ABIO 

20 

OB 

83 

OSR 

INOBASBZ 

;Gode ueberlesen 

AB13 

20 

27 

94 

OSR 

SGETAOR 

(•Mittelp. X holen 

AB16 

8C 

4B 

OB 

STY 

KMX 


AB19 

8C 

AA 

OS 

STY 

EX 

(•als Endpunkt X merken 

ABIC 

8D 

40 

OB 

STA 

KMX + 1 


ABIF 

80 

AB 

OS 

STA 

EX + 1 


AB22 

20 

31 

80 

OSR 

SGHKGOM 

(•Komma ? 

AB25 

20 

27 

94 

OSR 

SGETAOR 

(•Mittelp. Y holen 

AB28 

8C 

49 

OB 

STY 

KMY 


AB2B 

8C 

A8 

OS 

STY 

EY 

(•als Endpunkt Y merken 

AB2E 

80 

4A 

OB 

STA 

KMY + 1 


AB31 

80 

A9 

OS 

STA 

EY + 1 


AB34 

20 

31 

80 

OSR 

SGHKGOM 

(•Komma ? 

AB37 

20 

27 

94 

OSR 

SGETAOR 

(•Winkel holen 

AB3A 

84 

A8 


STY 

$A8 

(•nach $A8($A9 

AB3C 

8S 

A9 


STA 

$A9 


AB3E 

20 

FO 

81 

OSR 

SGETBYTC 

(•Radius X holen 

AB41 

8E 

48 

OB 

STX 

KRX 


AB44 

20 

FO 

81 

OSR 

SGETBYTG 

(•Radius Y holen 

AB47 

8E 

OS 

OB 

STX 

KRY 


AB4A 

20 

70 

93 

OSR 

GETPKTF 

(•Punktfarbe holen 

AB4D 

A9 

OA 


LOA 

#$0A 

(•Mehr punkte-Fl ag 

AB4F 

8S 

21 


STA 

$21 

;loeschen 

AB51 

20 

4F 

A9 

OSR 

KREISl 

;allg. Kreisroutine 

AB54 

4C 

2A 

82 

OMP 

ENOSMB 

(•Befehl fertig 

AB57 

20 

16 

A6 

OSR 

VGLAE 

(•Vergleichsr outine 

ABSA 

FO 

OA 


BEQ 

$AB66 

;=( dann Schleife 

ABSC 

BO 

08 


BOS 

$AB66 

;kleiner( dann Schleife 

ABSE 

AO 

2F 

OS 

LOA 

UEBEROREH ;Ueberlaufflag 

AB61 

09 

OA 


OMP 

#$0A 


AB63 

00 

01 


BNE 

$AB66 

(•nicht ges.( dann weit 

AB6S 

60 



RTS 



AB66 

40 

4F 

A9 

OMP 

KREISl 

(•zur Schleife 

(•Umwandlung 

einer 

Programmzeile 

(Simon's Befehle) 

AB69 

08 



INY 


(•Zeiger erhoehen 

AB6A 

B9 

FB 

01 

LOA 

PZEILB,Y 

(•naechstes Zeichen 

AB6D 

00 

FA 


BNE 

$AB69 

(•kein Endez.(dann Schl 

AB6F 

40 

7B 

AB 

OMP 

$AB7B 

(•Umwandlung fertig 
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AB72 

60 



RTS 


AB73 

40 

49 

AO 

OMP 

$A049 

AB76 

40 

69 

AB 

OMP 

$AB69 

ZEIUMWl: 





AB79 

AO 

05 


LDY 

#$05 

AB7B 

B9 

FB 

01 

LDA 

PZEILB 

AB7E 

DO 

01 


BNE 

$AB81 

AB80 

60 



RTS 


AB81 

09 

22 


OMP 

#$22 

AB83 

DO 

03 


BNE 

$AB88 

AB85 

40 

50 

AO 

OMP 

$A050 

AB88 

09 

40 


OMP 

#$40 

AB8A 

FO 

EA 


BEQ 

$AB76 

AB8C 

09 

44 


OMP 

#$44 

AB8E 

DO 

24 


BNE 

$ABB4 

AB90 

48 



PHA 


AB91 

98 



TYA 


AB92 

48 



PHA 


AB93 

08 



INY 


AB94 

B9 

FB 

01 

LDA 

PZEILB 

AB97 

09 

41 


OMP 

#$41 

AB99 

DO 

16 


BNE 

$ABB1 

AB9B 

08 



INY 


AB9C 

B9 

FB 

01 

LDA 

PZEILB 

AB9F 

09 

54 


OMP 

#$54 

ABAl 

DO 

OE 


BNE 

$ABB1 

ABA3 

08 



INY 


ABA4 

B9 

FB 

01 

LDA 

PZEILB 

ABA7 

09 

41 


OMP 

#$41 

ABA9 

DO 

06 


BNE 

$ABB1 

ABAB 

68 



PLA 


ABAC 

A8 



TAY 


ABAD 

68 



PLA 


ABAE 

40 

76 

AB 

OMP 

$AB76 

ABBl 

68 



PLA 


ABB2 

A8 



TAY 


ABB3 

68 



PLA 


ABB4 

09 

41 


OMP 

#$41 

ABB6 

90 

BB 


BOO 

$AB73 

ABB8 

09 

5B 


OMP 

#$5B 

ABBA 

BO 

B7 


BOS 

$AB73 

ABBC 

80 

54 

OB 

STY 

ZWISP2 

ABBF 

A2 

83 


LDX 

#$83 

ABCl 

86 

21 


STX 

$21 

ABC3 

A2 

E2 


LDX 

#$E2 


(•fertig 


(■Zeiger auf 5+$01FB = $0200 
(Y (-Zeichen aus Programmzeile 
(•kein Endezeichen ? 
(■Umwandlung fertig 

(■Anfuehrunqszeichen ? 

(•nein ? 


;(Klammeraffe) 

;ja ? 

;’E' 

;ja ? 

(■Akku und Y sichern 


,Y 

;’A- 

(•nein ? 

(■naechstes Zeichen 
,Y 

;’T' 

(•nein ? 

(•naechstes Zeichen 
,Y 

;'A' 

(•nein ? 

;Y und Akku restaurieren 


(fertig 

;Y und Akku restaurieren 


;"A- 

(kleiner als “A“ ? 

;$5A = ”Z” 

(•groesser als "Z" ? 

(Index Y merken 

;$20($21 auf $83E2 (TABBEF) 
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ABC5 

86 

20 


STX 

ABC7 

A2 

00 


LDX 

ABC9 

8E 

E4 

C5 

STX 

ABCC 

CI 

20 


CMP 

ABCE 

FO 

lE 


BEQ 

ABDO 

Al 

20 


LDA 

ABD2 

C9 

40 


CMP 

ABD4 

FO 

25 


BEQ 

ABD6 

Al 

20 


LDA 

ABD8 

FO 

6F 


BEQ 

ABDA 

C9 

40 


CMP 

ABDC 

FO 

09 


BEQ 

ABBE 

E6 

20 


INC 

ABEO 

DO 

F4 


BNE 

ABE2 

E6 

21 


INC 

ABE4 

4C 

D6 

AB 

3MP 

ABE7 

EE 

E4 

C5 

INC 

ABEA 

AC 

54 

CB 

LDY 

ABED 

A9 

C8 


LDA 

ABEF 

B9 

FB 

01 

LDA 

ABF2 

E6 

20 


INC 

ABF4 

DO 

02 


BNE 

ABF6 

E6 

21 


INC 

ABF8 

4C 

CC 

AB 

OMP 

ABFB 

AE 

54 

CB 

LDX 

ABFE 

A9 

64 


LDA 

ACOO 

9D 

FB 

01 

STA 

AC03 

E8 



INX 

AC04 

AD 

E4 

C5 

LDA 

AC07 

C9 

40 


CMP 

AC09 

DO 

lE 


BNE 

ACOB 

9D 

FB 

01 

STA 

ACOE 

FE 

FB 

01 

INC 

ACH 

A9 

3A 


LDA 

AC13 

E8 



INX 

AC14 

9D 

FB 

01 

STA 

AC17 

E8 



INX 

AC18 

9D 

FB 

01 

STA 

ACIB 

E8 



INX 

ACIC 

90 

FB 

01 

STA 

ACIF 

E8 



INX 

AC20 

9D 

FB 

01 

STA 

AC23 

E8 



INX 

AC24 

8A 



TXA 

AC25 

A8 



TAY 

AC26 

4C 

7B 

AB 

OMP 

AC29 

9D 

FB 

01 

STA 

AC2C 

FE 

FB 

01 

INC 


$20 


#$00 


CODEZAE 

;Zaehler f. Befehlsnr. = 0 

($20,X) 

/mit Zeich. aus TABBEF vgl. 

$ABEE 

;gleich ? 

($20,X) 

/Zeichen aus TABBEF 

#$40 

/Trennzeichen (Klammeraffe) 

$ABFB 

/ja ? 

($20,X) 

/Zeichen aus TABBEF 

$AC49 

/Tabelle zu Ende ? 

#$40 

/(Klammeraffe) 

$ABE7 

/ja ? 

$20 

/Zeiger in TABBEF erhoehen 

$ABD6 


$21 


$ABD6 

/Schleife 

CODEZAE 

/Zaehler erhoehen 

ZWISP2 

/alten Index wieder holen 

#$C8 

/(unsinnig) 

PZEILB,Y 

/Zeichen aus Prg.z. 

$20 

/Zeiger in TABBEF erhoehen 

$ABF8 


$21 


$ABCC 

/naechsten Befehl aus TAB. 

ZWISP2 

/alten Index nach X 

#$64 

/Simon' s Prefix 

PZEILB,X 

/speichern 

CODEZAE 

/ Befehlsnummer 

#$40 

/’DISAPA' 

$AC29 

/nein ? 

PZEILB,X 

/Befehlscode speichern 

PZEILB,X 

/Befehlscode + 1 

#$3A 

/DoppeIpunkt 

PZEILB,X 

/4 Doppelpunkte einfuegen 

PZEILB,X 


PZEILB,X 


PZEILB,X 



/Index wieder nach Y 

$AB7B 

/naechsten Befehl 

PZEILB,X 

/Befehlscode speichern 

PZEILB,X 

/ + ! 
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AC2F 

88 



DEY 


AC30 

C8 



INY 


AC31 

E8 



INX 


AC32 

B9 

FB 

01 

EDA 

PZEILB 

AC35 

9D 

FB 

01 

STA 

PZEILB 

AC38 

DO 

F6 


BNE 

$AC30 

AC3A 

E8 



INX 


AC3B 

A9 

00 


LDA 

#$00 

AC3D 

9D 

FB 

01 

STA 

PZEILB 

AC40 

BD 

FC 

01 

LDA 

PZEILB 

AC43 

DO 

F5 


BNE 

$AC3A 

AC45 

AC 

54 

CB 

LDY 

ZWISP2 

AC48 

C8 



INY 


AC49 

C8 



INY 


AC4A 

4C 

7B 

AB 

OMP 

$AB7B 

AC4D 

4C 

72 

AB 

OMP 

$AB72 

AC50 

C8 



INY 


AC51 

B9 

FB 

01 

LDA 

PZEILB 

AC54 

FO 

F7 


BEQ 

$AC4D 

AC56 

C9 

22 


CMP 

#$22 

AC58 

DO 

F6 


BNE 

$AC50 

AC5A 

4C 

49 

AC 

OMP 

$AC49 

MOVEBEF: 

J 

igemeinsame Adres 

AC5D 

A9 

FF 


LDA 

#$FF 

AC5F 

85 

A6 


STA 

$A6 

AC61 

A5 

7A 


LDA 

$7A 

AC63 

85 

A8 


STA 

$A8 

AC65 

A5 

7B 


LDA 

$7B 

AC67 

85 

A9 


STA 

$A9 

AC69 

E6 

A6 


INC 

$A6 

AC6B 

A5 

A6 


LDA 

$A6 

AC6D 

C9 

02 


CMP 

#$02 

AC6F 

DO 

03 


BNE 

$AC74 

AC71 

4C 

2A 

82 

OMP 

ENDSMB 

AC74 

A5 

A8 


LDA 

$A8 

AC76 

85 

7A 


STA 

$7A 

AC78 

A5 

A9 


LDA 

$A9 

AC7A 

85 

7B 


STA 

$7B 

AC7C 

18 



CLC 


AC7D 

AO 

00 


LDY 

#$00 

AC7F 

Bl 

7A 


LDA 

($7A), 

AC81 

69 

01 


ADC 

#$01 

AC83 

4C 

OA 

AD 

OMP 

$ADOA 

AC86 

68 



PLA 


AC87 

68 



PLA 


AC88 

A9 

OC 


LDA 

#$oc 


;Y zeigt auf noch nicht 
(■kodierte Zeichen 
;X auf Umwandlunqserqebnis 
/Y ;Byte 

,X ;nach vorne holen 

;k. Zeilenende, dann Schl. 
(•Zeiger dahinter stellen 

,X ('Endemarke setzen 
+ 1,X (-naechstes Zeichen 

(■kein (altes) Zeilenende ? 
(■alten Index holen 
;+2 (Prefix und Code) 

;zum naechsten Befehl 

(■fertig 

(■naechstes Zeichen 
,Y 

(■Zeilenende ? 

■ 

/ 

(kein ", dann Schleife 
(■weiter 

se von INV,MOVE,UP(DOWM etc. 

;Hi1fszaeh1er auf $FF 
;setzen 

(■Prg.z. nach $A8,$A9 


(■Hi.lfszaehler erhoehen 


(■nicht 2 ? 

(Befehl fertig 

(■alten Prgogrammzaehler 


Y ;Code 
/■ ■*■! 

;zum Verteiler 
(■Stack bereinigen 
;Nr. f. ’bad mode' 
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AC8A 

4C 

o 

00 

88 

3MP 

SERROUT (-Fehler ausgeben 

GETRCWD: 

;4 

Parameter 

R,C,W,D ;Bez. s. Handbuch bei FCHR 

AC8D 

20 

02 

82 

3SR 

SGETBYTN ;R holen 

AC90 

EO 

29 


CPX 

#$29 

AC92 

BO 

F2 


BCS 

$AC86 (-groesser 40 ? 

AC94 

8E 

76 

CB 

STX 

ZEILEANF 

AC97 

20 

FC 

81 

OSR 

SGETBYTC ;C holen 

AC9A 

EO 

28 


CPX 

#$28 

AC9C 

BO 

E8 


BCS 

$AC86 ;groesser 39 ? 

AC9E 

8E 

77 

CB 

STX 

SPALTEANF 

ACAl 

20 

FC 

81 

OSR 

SGETBYTC ;W holen 

ACA4 

EO 

00 


CPX 

#$00 

ACA6 

FO 

DE 


BEQ 

$AC86 ;W = 0 ? 

ACA8 

8E 

78 

CB 

STX 

SPALTENANZ 

ACAB 

20 

FC 

81 

3 SR 

SGETBYTC ;D holen 

ACAE 

EO 

00 


CPX 

#$00 

ACBO 

FO 

D4 


BEQ 

$AC86 ;D = 0 ? 

ACB2 

8E 

79 

CB 

STX 

ZEILENANZ 

MOVEZ: 





(•Zeiger f. Move-Bef. initialisieren 

ACB5 

A9 

00 


LDA 

#$00 

ACB7 

8D 

7A 

CB 

STA 

ZAEHLER (-Zaehler auf 0 stellen 

ACBA 

85 

20 


STA 

$20 ;$20($21 auf Video-RAM 

ACBC 

AD 

88 

02 

LDA 

VIDRAMHI 

ACBF 

85 

21 


STA 

$21 

ACCl 

A5 

A6 


LDA 

$A6 ;HiIfszaehler 

ACC3 

FO 

04 


BEQ 

$ACC9 ;noch 0 ? 

ACC5 

A9 

D8 


LDA 

#$D8 ;$20,$21 auf Farb-RAM 

ACC7 

85 

21 


STA 

$21 

ACC9 

AD 

76 

CB 

LDA 

ZEILEANF 

ACCC 

85 

A4 


STA 

$A4 

ACCE 

A9 

00 


LDA 

#$00 

ACDO 

85 

A5 


STA 

$A5 

ACD2 

20 

5F 

94 

3SR 

A4MAL40 ;$A4($A5 = 40 * ZEILEANF 

ACD5 

18 



CLC 


ACD6 

A5 

A4 


LDA 

$A4 ;$A4($A5 = $A4($A4 + $20($21 

ACD8 

65 

20 


ADC 

$20 

ACDA 

85 

A4 


STA 

$A4 

ACDC 

A5 

A5 


LDA 

$A5 

ACDE 

65 

21 


ADC 

$21 

ACEO 

85 

A5 


STA 

$A5 

ACE2 

18 



CLC 


ACE3 

A5 

A4 


LDA 

$A4 ;$20($21 = $A4($A5 + SPALTEANF 

ACE5 

6D 

77 

CB 

ADC 

SPALTEANF 

ACE8 

85 

20 


STA 

$20 

ACEA 

A5 

A5 


LDA 

$A5 

ACEC 

69 

00 


ADC 

#$00 

ACEE 

85 

21 


STA 

$21 

ACFO 

18 



CLC 


ACFl 

AD 

76 

CB 

LDA 

ZEILEANF 
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ACF4 

6ü 

79 

OB 

ADO 

ZEILENANZ 

;ZEILEANF+ZEILENANZ 

ACF7 

C9 

lA 


OMP 

#$1A 


ACF9 

BO 

00 


BOS 

$AD07 

/Zeilen groesser 25 ? 

ACFB 

18 



OLO 



ACFC 

AD 

78 

OB 

LDA 

SPALTENANZ 

ACFF 

6D 

77 

OB 

ADO 

SPALTEANF 

;SPALTENANZ+SPALTEANF 

ADO 2 

09 

29 


OMP 

#$29 


AD04 

BO 

01 


BOS 

$AD07 

/Spalten groesser 40 ? 

AD06 

60 



RTS 


/fertig 

AD07 

4C 

86 

AO 

OMP 

$A086 

/zur Fehlermeldung 

; Vertei1er 

■ auf die einzelnen Befehle 

ADOA 

09 

OE 


OMP 

#$0E 

/ ’INV 

ADOC 

DO 

27 


BNE 

$AD35 

/nein ? 

; INV-Befehl 





ADOE 

20 

8D 

AO 

OSR 

GETROWD 

/Parameter holen 

ADll 

AO 

00 


LDY 

#$00 

/SpaItenzaehler 

AD13 

A2 

00 


LDX 

#$00 

/Zeilenzaehler 

AD15 

tc 

78 

OB 

OPY 

SPALTENANZ 

AD18 

FO 

OA 


BEQ 

$AD24 

/Ende (Spalten) ? 

ADIA 

Bl 

20 


LDA 

($20),Y 


ADIC 

49 

80 


EOR 

#$80 

/MSB invertieren 

ADIE 

91 

20 


STA 

($20),Y 


AD20 

08 



INY 



AD21 

40 

15 

AD 

OMP 

$AD15 

/Schleife 

AD24 

E8 



INX 



AD25 

EO 

79 

OB 

OPX 

ZEILENANZ 


AD28 

FO 

08 


BEQ 

$AD32 

/Ende ? 

AD2A 

AO 

00 


LDY 

#$00 


AD2C 

20 

OE 

94 

OSR 

20PL40 

/naechste Zeile 

AD2F 

40 

15 

AD 

OMP 

$AD15 

/Schleife 

AD32 

40 

2A 

82 

OMP 

ENDSMB 

/Befehl fertig 

;Fortsetzung 

des 

Verteilers 


AD35 

09 

10 


OMP 

#$10 

/ ’MOVE' 

AD37 

FO 

03 


BEQ 

$AD30 

/ja ? 

AD39 

40 

7B 

AD 

OMP 

$AD7B 


;MOVE- 

Befeh 1 





AD3C 

20 

8D 

AO 

OSR 

GETROWD 

;4 Parameter holen 

AD3F 

A5 

20 


LDA 

$20 

/$23,$24 = $20,$21 

AD41 

85 

23 


STA 

$23 


AD43 

A5 

21 


LDA 

$21 


AD45 

85 

24 


STA 

$24 


AD47 

20 

FO 

81 

OSR 

SGETBYTG 

/ZielZeile holen 

AD4A 

8E 

76 

OB 

STX 

ZEILEANF 


AD4D 

20 

FO 

81 

OSR 

SGETBYTG 

/Zielspalte holen 
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AD50 

8E 

77 

CB 

STX 

SPALTEANF 


AD53 

20 

B5 

AC 

OSR 

MOVEZ 

;Zeiger initialisieren 

AD56 

A2 

00 


LDX 

noo 

j-Zeilenzaehler 

AD58 

AO 

00 


LDY 

#$Q0 

;Spaltenzaehler 

AD5A 

CG 

78 

CB 

CPY 

SPALTENANZ 

AD5D 

FO 

08 


BEQ 

$AD67 

/Spalten fertig ? 

AD5F 

Bl 

23 


LDA 

($23) ,Y 

;von ($23,$24 + Y) 

AD61 

91 

20 


STA 

($2Q),Y 

/nach ($2Q,$21 + Y) 

AD63 

C8 



INY 



AD64 

4C 

5A 

AD 

OMP 

$AD5A 

/Schleife 

AD67 

E8 



INX 



AD68 

EC 

79 

CB 

CPX 

ZEILENANZ 


AD6B 

FO 

OB 


BEQ 

$AD78 

/Zeilen fertig ? 

AD6D 

AO 

00 


LDY 

#$Q0 


AD6F 

20 

CE 

94 

OSR 

2QPL4Q 

/Quellzeiger und Zielzeig 

AD72 

20 

DC 

94 

OSR 

23PL4Q 

/auf naechste Zeile 

AD75 

4C 

5A 

AD 

OMP 

$AD5A 

/Schleife 

AD78 

4C 

69 

AC 

OMP 

$AC69 

/mit Speicherber, fertig 

; Fortsetzung 

des 

Verteilers 


AD7B 

C9 

12 


CMP 

#$12 

/■UPB’ 

AD7D 

FO 

03 


BEQ 

$AD82 

/ja ? 

AD7F 

4C 

IF 

AE 

OMP 

$AE1F 



; UPB-Befehl 


AD82 

A9 

28 


LDA 

#$28 

AD84 

8D 

7C 

CB 

STA 

RICHTZ /up 

AD87 

20 

8D 

AD 

OSR 

MQVEUL /Move nach oben bzw. links 

AD8A 

4C 

OF 

AE 

OMP 

$AEQF /Abschluss 

MQVEUL; 

AD8D 

20 

8D 

AC 

OSR 

GETRCWD /4 Parameter holen 

AD9Q 

AD91 

18 

A5 

20 


CLC 

LDA 

$2Q /$23,$24 = $2Q,$21 + RICHTZ 

AD93 

6D 

7C 

CB 

ADC 

RICHTZ 

AD96 

85 

23 


STA 

$23 

AD98 

A5 

21 


LDA 

$21 

AD9A 

69 

00 


ADC 

#$Q0 

AD9C 

85 

24 


STA 

$24 

AD9E 

A2 

00 


LDX 

#$0Q 

ADAQ 

AO 

00 


LDY 

#$QQ 

ADA2 

AD 

7C 

CB 

LDA 

RICHTZ 

ADA5 

C9 

28 


CMP 

#$28 

ADA7 

FO 

30 


BEQ 

$ADD9 /RICHTZ = 4Q ? 

ADA9 

CE 

78 

CB 

DEC 

SPALTENANZ /-l, aber nicht null 

ADAC 

AD 

78 

CB 

LDA 

SPALTENANZ 

ADAF 

DO 

03 


BNE 

$ADB4 

ADBl 

EE 

78 

CB 

INC 

SPALTENANZ 

ADB4 

A5 

20 


LDA 

$2Q 
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ADB6 

8D 

7E 

CB 

STA 

ZAEHLMl ;$20,$21 nach ZAEHLM1,2 

ADB9 

A5 

21 


LDA 

$21 

ADBB 

8D 

80 

CB 

STA 

ZAEHLM2 

ABBE 

Bl 

20 


LDA 

($20),Y ;eine Spalte nach MOVETAB 

ADCO 

9D 

lE 

CB 

STA 

MOVETAB,X 

ADC3 

E8 



INX 


ADC4 

20 

CE 

94 

OSR 

20PL40 

ADC7 

EC 

79 

CB 

CPX 

ZEILENANZ 

ADCA 

DO 

F2 


BNE 

$ADBE 

ADCC 

AD 

80 

CB 

LDA 

ZAEHLM2 ;$20,$21 restaurieren 

ADCF 

85 

21 


STA 

$21 

ADDl 

AD 

7E 

CB 

LDA 

ZAEHLMl 

ADD4 

85 

20 


STA 

$20 

ADD6 

4C 

E7 

AD 

OMP 

$ADE7 

ADD9 

Bl 

20 


LDA 

($20),Y ;eine Zeile nach MOVETAB 

ADDB 

99 

lE 

CB 

STA 

MOVETAB,Y 

ADDE 

C8 



INY 


ADDF 

CG 

78 

CB 

CPY 

SPALTENANZ 

ADE2 

DO 

F5 


BNE 

$ADD9 

ADE4 

CE 

79 

CB 

DEC 

ZEILENANZ 

ADE7 

AO 

00 


LDY 

#$00 ;Bereich moven 

ADE9 

A2 

00 


LDX 

#$00 

ADEB 

CC 

78 

CB 

CPY 

SPALTENANZ 

ADEE 

FO 

08 


BEQ 

$ADF8 

ADFO 

Bl 

23 


LDA 

($23),Y 

ADF2 

91 

20 


STA 

($20),Y 

ADF4 

C8 



INY 


ADF5 

4C 

EB 

AD 

OMP 

$ADEB 

ADF8 

E8 



INX 


ADF9 

EC 

79 

CB 

CPX 

ZEILENANZ 

ADFC 

FO 

10 


BEQ 

$AEOE 

ADFE 

AD 

79 

CB 

LDA 

ZEILENANZ 

AEOl 

FO 

OB 


BEQ 

$AEOE 

AE03 

AO 

00 


LDY 

#$00 

AE05 

20 

CE 

94 

OSR 

20PL40 ;Zielzeiger n. Zeile 

AE08 

20 

DC 

94 

OSR 

23PL40 ;Quellzeiger 

AEOB 

4C 

EB 

AD 

OMP 

$ADEB 

AEOE 

60 



RTS 

;fertig mit MOVEUL 

AEOF 

AC 

78 

CB 

LDY 

SPALTENANZ 

AE12 

88 



DEY 


AE13 

A9 

20 


LDA 

#$20 ;Zeile mit Blanks auffuellen 

AE15 

91 

23 


STA 

($23),Y 

AE17 

88 



DEY 


AE18 

CO 

FF 


CPY 

#$FF 

AEIA 

DO 

F9 


BNE 

$AE15 /Schleife 

AEIC 

4C 

69 

AC 

OMP 

$AC69 ;mit Speicherber, fertig 
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;Fortsetzung 

des 

Verteilers 

AEIF 

C9 

13 


CMP 

#$13 ;'UPW' 

AE21 

FO 

03 


BEQ 

$AE26 ;ja ? 

AE23 

4C 

3F 

AE 

OMP 

$AE3F 

UPW-Befehl 





AE26 

A9 

28 


LDA 

#$28 

AE28 

8D 

7C 

CB 

STA 

RICHTZ ;up 

AE2B 

20 

8D 

AD 

OSR 

MOVEUL ;Move nach oben bzw. links 

AE2E 

AC 

78 

CB 

LDY 

SPALTENANZ 

AE31 

88 



DEY 


AE32 

B9 

lE 

CB 

LDA 

MOVETAB,Y ,-gesicherte Zeile aus 

AE35 

91 

23 


STA 

($23),Y ,-wieder schreiben 

AE37 

88 



DEY 


AE38 

CO 

FF 


CPY 

#$FF 

AE3A 

DO 

F6 


BNE 

$AE32 ,-Schleife 

AE3C 

4C 

69 

AC 

OMP 

$AC69 ;mit Bereich fertig 

; Fortsetzung 

des 

Verteilers 

AE3F 

C9 

14 


CMP 

#$14 ;'LEFTW' 

AE41 

FO 

03 


BEQ 

$AE46 ;ja ? 

AE43 

4C 

98 

AE 

3 MP 

$AE98 

;LEFTW- 

-Befehl 



AE46 

A9 

01 


LDA 

#$01 

AE48 

8D 

7C 

CB 

STA 

RICHTZ ;left 

AE4B 

8D 

82 

CB 

STA 

BWFLAG 

AE4E 

20 

8D 

AD 

3SR 

MOVEUL ;Move nach oben bzw. links 

AE51 

A2 

00 


LDX 

#$00 

AE53 

AC 

79 

CB 

LDY 

ZEILENANZ 

AE56 

CO 

01 


CPY 

#$01 

AE58 

FO 

12 


BEQ 

$AE6C 

AE5A 

18 



CLC 


AE5B 

A5 

23 


LDA 

$23 ;$23,$24 = $23,$24 - 40 

AE5D 

E9 

27 


SBC 

#$27 

AE5F 

85 

23 


STA 

$23 

AE61 

A5 

24 


LDA 

$24 

AE63 

E9 

00 


SBC 

#$00 

AE65 

85 

24 


STA 

$24 

AE67 

88 



DEY 


AE68 

CO 

01 


CPY 

#$01 

AE6A 

DO 

EE 


BNE 

$AE5A ,-Schleife f. Subtr. 

AE6C 

AC 

78 

CB 

LDY 

SPALTENANZ 

AE6F 

88 



DEY 


AE70 

AD 

82 

CB 

LDA 

BWFLAG ,-LEFTB oder LEFTW ? 

AE73 

C9 

04 


CMP 

#$04 

AE75 

FO 

11 


BEQ 

$AE88 ,-LEFTB ? 

AE77 

BD 

lE 

CB 

LDA 

MOVETAB,X ,-gesicherte Spalte 

AE7A 

91 

23 


STA 

($23),Y ,-wieder schreiben 

AE7C 

20 

DC 

94 

3SR 

23PL40 ,-naechste Zeile 

AE7F 

E8 



INX 
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AE80 

EC 

79 

CB 

CPX 

ZEILENANZ 


AE83 

DO 

F2 


BNE 

$AE77 ;Schleife 

AE85 

4C 

69 

AC 

OMP 

$AC69 

mit Ber. fertig 

AE88 

A9 

20 


LDA 

#$20 

■ • 

AE8A 

91 

23 


STA 

($23),Y ; 

in Spalte sehr. 

AE8C 

20 

DC 

94 

OSR 

23PL40 

AE8F 

E8 



INX 



AE90 

EC 

79 

CB 

CPX 

ZEILENANZ 


AE93 

DO 

F3 


BNE 

$AE88 

Schleife 

AE95 

4C 

69 

AC 

OMP 

$AC69 

mit Bereich fertig 

;Fortsetzung 

des 

Verteilers 


AE98 

C9 

15 


CMP 

#$15 

’LEFTB’ 

AE9A 

FO 

03 


BEQ 

$AE9F 

ja ? 

AE9C 

4C 

AF 

AE 

OMP 

$AEAF 

;LEFTB- 

-Befeh 1 





AE9F 

A9 

01 


LDA 

#$01 


AEAl 

8D 

7C 

CB 

STA 

RICHTZ 

left 

AEA4 

A9 

04 


LDA 

#$04 


AEA6 

8D 

82 

CB 

STA 

BWFLAG ; 

left B 

AEA9 

20 

8D 

AD 

3SR 

MOVEUL 

Move-Routine 

AEAC 

4C 

51 

AE 

OMP 

$AE51 

Abschlussbehandluni 

(•Fortsetzung 

des 

Verteilers 


AEAF 

C9 

16 


CMP 

#$16 

’DOWNMB' 

AEBl 

FO 

03 


BEQ 

$AEB6 ; 

ja ? 

AEB3 

4C 

79 

AF 

3 MP 

MF79 

;DOWNB- 

-Befehl 




AEB6 

A9 

28 


LDA 

#$28 


AEB8 

8D 

7C 

CB 

STA 

RICHTZ 

down 

AEBB 

A9 

00 


LDA 

#$00 


AEBD 

8D 

7E 

CB 

STA 

ZAEHLMl 


AECO 

20 

C6 

AE 

3SR 

MOVEDR 

Move n. unten bzw. 

AEC3 

4C 

6A 

AF 

3MP 

$AF6A 

Abschlussbehandluni 

MOVEDR 

; 






AEC6 

20 

8D 

AC 

3SR 

GETRCWD ; 

4 Parameter holen 

AEC9 

CE 

79 

CB 

DEC 

ZEILENANZ 


AECC 

CE 

78 

CB 

DEC 

SPALTENANZ 

AECF 

AE 

79 

CB 

LDX 

ZEILENANZ 


AED2 

AO 

00 


LDY 

#$00 


AED4 

18 



CLC 



AED5 

8C 

84 

CB 

STY 

ZWISP3 

;Y sichern 

AED8 

AC 

78 

CB 

LDY 

SPALTENANZ 

AEDB 

Bl 

20 


LDA 

($20),Y 

(•Zeichen 

AEDD 

AC 

84 

CB 

LDY 

ZWISP3 


AEEO 

99 

lE 

CB 

STA 

MOVETAB,Y 

;in MOVETAB sicher 

AEE3 

AD 

79 

CB 

LDA 

ZEILENANZ 



rechts 
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AEE6 

FO 

OA 


BEQ 

$AEF2 ;fertig mit Zeilen 

AEE8 

C8 



INY 


AEE9 

20 

CE 

94 

OSR 

2QPL4Q ;naechste Zeile 

AEEC 

8C 

84 

CB 

STY 

ZWISP3 ;Y sichern 

AEEF 

CA 



DEX 


AEFO 

DO 

E2 


BNE 

$AED4 ;Schleife 

AEF2 

8C 

84 

CB 

STY 

ZWISP3 

AEF5 

AC 

78 

CB 

LDY 

SPALTENANZ 

AEF8 

Bl 

20 


EDA 

($2Q),Y ;Spalte 

AEFA 

AC 

84 

CB 

LDY 

ZWISP3 

AEFD 

99 

lE 

CB 

STA 

MOVETAB,Y ;in MOVETAB sichern 

AFOO 

38 



SEC 


AFOl 

A5 

20 


LDA 

$2Q ;$23,$24 = $2Q421 - RICHTZ 

AF03 

ED 

7C 

CB 

SBC 

RICHTZ 

AF06 

85 

23 


STA 

$23 

AF08 

A5 

21 


LDA 

$21 

AFOA 

E9 

00 


SBC 

#$0Q 

AFOC 

85 

24 


STA 

$24 

AFOE 

AD 

7E 

CB 

LDA 

ZAEHLMl 

AFll 

C9 

28 


CMP 

#$28 

AF13 

DO 

ID 


BNE 

$AF32 ;ZAEHLM1 nicht= 4Q ? 

AF15 

AO 

00 


LDY 

#$QQ 

AF17 

EE 

78 

CB 

INC 

SPALTENANZ 

AFIA 

AD 

80 

CB 

LDA 

ZAEHLM2 

AFID 

C9 

02 


CMP 

#$Q2 

AFIF 

FO 

OE 


BEQ 

$AF2F 

AF21 

Bl 

20 


LDA 

($2Q),Y ;Zeile sichern in MQVETAB 

AF23 

99 

lE 

CB 

STA 

MOVETAB,Y 

AF26 

C8 



INY 


AF27 

CC 

78 

CB 

CPY 

SPALTENANZ 

AF2A 

FO 

03 


BEQ 

$AF2F ;mit Zeile fertig ? 

AF2C 

4C 

21 

AF 

OMP 

$AF21 ;Schleife 

AF2F 

CE 

78 

CB 

DEC 

SPALTENANZ 

AF32 

AC 

78 

CB 

LDY 

SPALTENANZ 

AF35 

AE 

79 

CB 

LDX 

ZEILENANZ 

AF38 

CO 

FF 


CPY 

#$FF 

AF3A 

FO 

08 


BEQ 

$AF44 

AF3C 

Bl 

23 


LDA 

($23),Y /Zeichen transferieren 

AF3E 

91 

20 


STA 

($20),Y 

AF40 

88 



DEY 


AF41 

4C 

38 

AF 

OMP 

$AF38 /Schleife 

AF44 

CA 



DEX 


AF45 

EO 

FF 


CPX 

#$FF 

AF47 

FO 

20 


BEQ 

$AF69 /Zeilenz. abgelaufen ? 

AF49 

AC 

78 

CB 

LDY 

SPALTENANZ 

AF4C 

38 



SEC 


AF4D 

A5 

20 


LDA 

$20 /$20,$21 = $20,$21 - 40 

AF4F 

E9 

28 


SBC 

#$28 

AF51 

85 

20 


STA 

$20 
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AF53 

A5 

21 


LOA 

$21 


AF55 

E9 

00 


SBC 

#$00 


AF57 

85 

21 


STA 

$21 


AF59 

38 



SEC 



AF5A 

A5 

23 


LOA 

$23 

$23,$24 = $23,$24 - 40 

AF5C 

E9 

28 


SBC 

#$28 


AF5E 

85 

23 


STA 

$23 


AF60 

A5 

24 


LOA 

$24 


AF62 

E9 

00 


SBC 

#$00 


AF64 

85 

24 


STA 

$24 


AF66 

40 

38 

AF 

OMP 

$AF38 

;Schleife 

AF69 

60 



RTS 


;Ende von MOVEOR 

AF6A 

AC 

78 

CB 

LOY 

SPALTENANZ 

AF6D 

A9 

20 


LOA 

#$20 

. * * 

/ 

AF6F 

91 

20 


STA 

($20),Y 

;in neue Zeile schreiben 

AF71 

88 



OEY 



AF72 

CO 

FF 


CPY 

#$FF 


AF74 

DO 

F9 


BNE 

$AF6F 

;Schleife 

AF76 

40 

69 

AC 

OMP 

$AC69 

;mit Bereich fertig 

;Fortsetzung 

des 

Verteilers 


AF79 

09 

17 


CMP 

#$17 

; ’OOWNW 

AF7B 

FO 

03 


BEQ 

$AF80 

;ja ? 

AF7D 

40 

A4 

AF 

3MP 

$AFA4 

;D0WNW- 

-Befehl 




AF80 

A9 

28 


LOA 

#$28 

; down 

AF82 

80 

70 

CB 

STA 

RICHTZ 


AF85 

80 

7E 

CB 

STA 

ZAEHLMl 


AF88 

80 

80 

CB 

STA 

ZAEHLM2 


AF8B 

20 

06 

AE 

OSR 

MOVEOR 

;move n. unten oder rechts 

AF8E 

EE 

78 

CB 

INC 

SPALTENANZ 

AF91 

AO 

00 


LOY 

#$00 


AF93 

B9 

lE 

CB 

LOA 

MOVETAB, 

Y /gesicherte Zeile 

AF96 

91 

20 


STA 

($20),Y 

/wieder schreiben 

AF98 

08 



INY 



AF99 

00 

78 

CB 

CPY 

SPALTENANZ 

AF9C 

10 

03 


BPL 

$AFA1 

/mit Spalten fertig ? 
/Schleife 

AF9E 

40 

93 

AF 

3MP 

$AF93 

AFAl 

40 

69 

AC 

□ MP 

$AC69 

/Bereich fertig 

;Fortsetzung 

des 

Verteilers 


AFA4 

09 

18 


CMP 

#$18 

/’RIGHTB' 

AFA6 

FO 

03 


BEQ 

$AFAB 

/ja ? 

AFA8 

40 

00 

AF 

□ MP 

$AFOO 


;RIGHTB-Befehl 

AFAB A9 01 LDA #$01 ;right 



238 


Kapitel 6 


AFAD 

8D 

7C 

CB 

STA 

RICHTZ 


AFBO 

8D 

7E 

CB 

STA 

ZAEHLMl 


AFB3 

20 

C6 

AE 

DSR 

MOVEOR 

move n. unten oder rechts 

AFB6 

A2 

00 


LOX 

#$00 


AFB8 

EE 

79 

CB 

INC 

ZEILENANZ 


AFBB 

AO 

00 


LOY 

#$00 


AFBD 

A9 

20 


LOA 

#$20 

■ • 

AFBF 

91 

20 


STA 

($20),Y ; 

in neue Spalte 

AFCl 

E8 



INX 



AFC2 

20 

CE 

94 

3SR 

20PL40 

naechste Spalte 

AFC5 

EC 

79 

CB 

CPX 

ZEILENANZ 


AFC8 

10 

03 


BPL 

$AFCO 

mit Zeilen fertig ? 

AFCA 

4C 

BO 

AF 

3 MP 

MfBD ; 

Schleife 

AFCD 

4C 

69 

AC 

3MP 

$AC69 

Bereich fertig 

;Fortsetzung 

des 

Verteilers 


AFDO 

09 

19 


CMP 

#$19 

‘RIGHTW 

AFD2 

FO 

00 


BEQ 

$AF04 

ja ? 

AFD4 

A9 

01 


LOA 

#$01 

right 

AFD6 

80 

7C 

CB 

STA 

RICHTZ 


AFD9 

80 

7E 

CB 

STA 

ZAEHLMl 


AFDC 

A9 

02 


LOA 

#$02 


AFDE 

80 

80 

CB 

STA 

ZAEHLM2 


AFEl 

20 

C6 

AE 

DSR 

MOVEOR 

move n. unten oder rechts 

AFE4 

AO 

00 


LOY 

#$00 


AFE6 

A2 

00 


LOX 

#$00 


AFE8 

EE 

79 

CB 

INC 

ZEILENANZ 


AFEB 

BO 

lE 

CB 

LOA 

MOVETAB,X 

;gesicherte Spalte 

AFEE 

91 

20 


STA 

($20),Y 

;wieder schreiben 

AFFO 

E8 



INX 



AFFl 

20 

CE 

94 

DSR 

20PL40 

;naechste Spalte 

AFF4 

EC 

79 

CB 

CPX 

ZEILENANZ 


AFF7 

FO 

03 


BEQ 

$AFFC 

;mit Zeilen fertig ? 

AFF9 

4C 

EB 

AF 

OMP 

$AFEB 

/Schleife 

AFFC 

A9 

01 


LOA 

#$01 


AFFE 

80 

84 

CB 

STA 

ZWISP3 

;Y auf 1 setzen 

BOOl 

4C 

69 

AC 

3MP 

$AC69 

/Bereich fertig 

BEFFETCH: 






B004 

20 

B4 

86 

OSR 

SGETSTRN 

/String holen 

B007 

86 

20 


STX 

$20 

/Adresse nach $20,$21 

B009 

85 

21 


STA 

$21 


BOOB 

A5 

69 


LOA 

$69 


BOOD 

80 

72 

CB 

STA 

FETCHLEN 

/Stringlaenge 

BOlO 

20 

FC 

81 

3 SR 

SGETBYTC 

/Anzahl holen 

B013 

8E 

6F 

CB 

STX 

FETCHANZ 


B016 

20 

31 

80 

3SR 

SCHKCOM 

/Komma ? 

B019 

20 

70 

Bl 

3SR 

RVSBLANK 

/RVS-Blank ausgeben 

BOlC 

20 

C7 

80 

3SR 

STESTOIRM 

/Programmodus ? 
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BOIF 

A9 

20 


EDA 

#$2C 

, ■ ■ 

/ / 

B021 

8D 

FF 

01 

STA 

$01FF 

;an Anfang von Puffer 

B024 

20 

53 

BO 

OSR 

FETCHT 

(■Zeichen holen 

B027 

A5 

13 


LDA 

$13 

(■aktive Datei 

B029 

FO 

10 


BEQ 

$B03B 

;0( dann weiter 

B02B 

20 

B7 

FF 

JSR 

$FFB7 

(■READST; Status holen 

B02E 

29 

02 


AND 

#$02 

;Time-Out read 

B030 

FO 

09 


becT 

$B03B 

;nein( dann weiter 

B032 

20 

DO 

80 

OSR 

SCLRCH 

(■Kanaele schliessen 

B035 

20 

D9 

80 

3 SR 

SREM 

(■bis Zeilenende vorr. 

B038 

40 

2A 

82 

3MP 

ENDSMB 

(■Befehl fertig 

B03B 

AD 

00 

02 

LDA 

$0200 

;1. Zeich. aus Eing.puffer 

B03E 

DO 

OD 


BNE 

$B04D 

(■kein Endezeichen ? 

B040 

A5 

13 


LDA 

$13 

(■aktive Datei 

B042 

DO 

EO 


BNE 

$B024 

(■nicht 0( dann Schleife 

B044 

20 

E2 

80 

3SR 

SNEXTTR 

(■naechsten Befehl suchen 

B047 

20 

FD 

80 

3SR 

SBZPLY 

(■Prg.z. erhoehen 

B04A 

40 

2A 

82 

3MP 

ENDSMB 

(■Befehl fertig 

B04D 

20 

EB 

80 

3SR 

SINPUTl 

; Input-Routine 

B050 

40 

2A 

82 

3MP 

ENDSMB 

(■Befehl fertig 

FE TCHT; 







B053 

A2 

00 


LDX 

#$00 


B055 

98 



TYA 


;Y und X retten 

B056 

48 



PHA 



B057 

8A 



TXA 



B058 

48 



PHA 



B059 

20 

E4 

FF 

3SR 

GETIN 

(■Zeichen holen 

B05C 

8D 

70 

CB 

STA 

30YWERT 

;merken 

B05F 

68 



PLA 



B060 

AA 



TAX 


;X und Y restaurieren 

B061 

68 



PLA 



B062 

A8 



TAY 



B063 

AD 

70 

CB 

LDA 

30YWERT 

(■geholtes Zeichen 

B066 

09 

00 


CMP 

#$00 


B068 

FO 

EB 


BEQ 

$B055 

(■kein Zeichen ? 

B06A 

09 

OD 


CMP 

#$0D 


B06C 

DO 

03 


BNE 

$B071 

(■kein (return) ? 

B06E 

40 

OD 

Bl 

3 MP 

$B10D 

;weiter 

B071 

09 

14 


CMP 

#$14 


B073 

FO 

22 


BEQ 

$B097 

;(Del) ? 

B075 

A5 

D4 


LDA 

$D4 

;"-Merker 

B077 

DO 

36 


BNE 

$BOAF 

(■kein "-Modus ? 

B079 

8A 



TXA 


;X retten 

B07A 

48 



PHA 



B07B 

A2 

00 


LDX 

#$00 

(■Zaehler auf 0 

B07D 

BD 

5B 

Bl 

LDA 

FETCHTAB 

(X (Zeichen aus Tabelle 

B080 

OD 

70 

CB 

CMP 

30YWERT 

(■mit Zeichen vgl. 

B083 

FO 

OD 


BEQ 

$B092 

(■gleich ? 
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B085 

E8 



INX 


;naechtes Zeichen in Tab. 

B086 

EO 

12 


CPX 

#$12 


B088 

DO 

F3 


BNE 

$B07D 

/Tabelle nicht zu Ende ? 

B08A 

68 



PLA 



B08B 

AA 



TAX 


;X restaurieren 

B08C 

AD 

70 

CB 

EDA 

30YWERT 

/geholtes Zeichen 

B08F 

40 

AF 

BO 

3MP 

$BOAF 


B092 

68 



PLA 



B093 

AA 



TAX 


/X restaurieren 

B094 

40 

SS 

BO 

3 MP 

$BOSS 

/neues Zeichen holen 

B097 

EO 

00 


CPX 

#$00 


B099 

FO 

BA 


BEQ 

$BOSS 

/Zaehler = 0 ? 

B09B 

AS 

D4 


LDA 

$D4 

/“-Merker retten 

B09D 

48 



PHA 



B09E 

A9 

00 


LDA 

#$00 


BOAO 

8S 

D4 


STA 

$04 


B0A2 

A9 

14 


LDA 

#$14 

/(Del) 

B0A4 

20 

D2 

FF 

3SR 

BSOUT 

/ausgeben 

B0A7 

68 



PLA 



B0A8 

8S 

D4 


STA 

$D4 

/"-Merker restaurieren 

BOAA 

CA 



DEX 


2 Zeichen aus Puffer nehmen 

BOAB 

CA 



DEX 



BOAC 

40 

EF 

BO 

3MP 

$BOEF 

/weiter 

BOAF 

80 

71 

CB 

STY 

ZWISP4 

/Y sichern 

B0B2 

AD 

70 

CB 

LDA 

30YWERT 

/Taste 

BOBS 

09 

8D 


CMP 

#$8D 

/(Shift+RETURN) 

B0B7 

FO 

EO 


BEQ 

$B099 

/ja ? 

B0B9 

AC 

73 

CB 

LDY 

$CB73 

/????? (immer 0) 

BOBC 

00 

78 


CPY 

#$78 


BOBE 

FO 

26 


BEQ 

$B0E6 

/????? (nie erfuellt) 

BOCO 

AO 

00 


LDY 

#$00 


B0C2 

Dl 

20 


CMP 

($20),Y 

/Zeichen aus String 

BO 04 

FO 

20 


BEQ 

$B0E6 

/gleich Eingabezeichen ? 

B0C6 

Bl 

20 


LDA 

($20),Y 

/Zeichen aus String 

B0C8 

09 

13 


CMP 

#$13 


BOCA 

FO 

S7 


BEQ 

$B123 

/chr$(13) ? 

BOCC 

09 

11 


CMP 

#$11 


BOCE 

FO 

64 


BEQ 

$B134 

/(Cursor down) ? 

BODO 

09 

ID 


CMP 

#$1D 


B0D2 

DO 

03 


BNE 

$B0D7 

/nicht (Cursor right) ? 

B0D4 

4C 

42 

Bl 

3MP 

$B142 

/ja, dann zu $B142 

B0D7 

AD 

70 

CB 

LDA 

30YWERT 

/gedrueckte Taste 

BODA 

08 



INY 


/Zaehler im String erhoeh. 

BODB 

00 

72 

CB 

CPY 

FETCHLEN 

/Stringlaenge 

BODE 

DO 

E2 


BNE 

$B0C2 

/String nicht zu Ende ? 

BOEO 

AC 

71 

CB 

LDY 

ZWISP4 

/Y restaurieren 

B0E3 

40 

SS 

BO 

3MP 

$BOSS 

/zur Schleife 
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B0E6 

90 

00 

02 

STA 

$0200,X 

B0E9 

AC 

71 

CB 

LOY 

ZWISP4 

BOEC 

20 

02 

FF 

OSR 

BSOUT 

BOEF 

20 

70 

Bl 

OSR 

RVSBLANK 

B0F2 

ES 



INX 


B0F3 

EC 

6F 

CB 

CPX 

FETCHANZ 

B0F6 

DO 

E8 


BNE 

$BOEO 

B0F8 

98 



TYA 


B0F9 

48 



PHA 


BOFA 

8A 



TXA 


BOFB 

48 



PHA 


BOFC 

20 

E4 

FF 

OSR 

GETIN 

BOFF 

80 

70 

CB 

STA 

OOYWERT 

B102 

68 



PLA 


BIOS 

AA 



TAX 


B104 

68 



PLA 


BIOS 

A8 



TAY 


BIOS 

AD 

70 

CB 

LOA 

OOYWERT 

B109 

C9 

00 


CMP 

#$0D 

BIOB 

00 

EB 


BNE 

$B0F8 

BIOD 

EO 

00 


CPX 

#$00 

BIOF 

00 

03 


BNE 

$B114 

Bill 

4C 

53 

BO 

OMP 

$B053 

B114 

A9 

20 


LOA 

#$20 

BUS 

20 

02 

FF 

OSR 

BSOUT 

B119 

A9 

91 


LOA 

#$91 

BllB 

20 

02 

FF 

OSR 

BSOUT 

BllE 

A9 

00 


LOA 

#$0D 

B120 

4C 

F4 

80 

OMP 

SPUFOCR 


B123 

AD 

70 

CB 

LOA 

OOYWERT 

B126 

C9 

41 


CMP 

#$41 

B128 

90 

07 


BCC 

$B131 

B12A 

C9 

SB 


CMP 

#$5B 

B12C 

BO 

03 


BCS 

$B131 

B12E 

4C 

E6 

BO 

OMP 

$B0E6 

B131 

4C 

07 

BO 

OMP 

$B0D7 

B134 

AD 

70 

CB 

LOA 

JOYWERT 

B137 

C9 

IF 


CMP 

#$1F 

B139 

90 

F6 


BCC 

$B131 

B13B 

C9 

41 


CMP 

#$41 

B13D 

BO 

F2 


BCS 

$B131 

B13F 

4C 

E6 

BO 

OMP 

$B0E6 

B142 

AD 

70 

CB 

LOA 

JOYWERT 

B145 

C9 

41 


CMP 

#$41 

B147 

90 

E8 


BCC 

$B131 


Zeichen in Puffer ablegen 

Y restaurieren 
Zeichen ausgeben 
RVS-Blank ausgeben 
Zaehler erhoehen 

zu holende Zeichenzahl 
nicht erreicht ? 

Y und X sichern 


;1 Zeichen holen 
; speichern 

;X und Y restaurieren 


(•Zeichen 

;(cr) 

;nein ? 

/Zaehler ungleich 0 ? 
/sonst Schleife 


/ausgeben 
/(Cursor up) 

/ausgeben 
;(cr) 

/Puffer abschliessen/ 

/(er) ausgeben und fertig 

/geholtes Zeichen 

/kleiner als “A“ ? 

/$5A = “Z“ 

/groesser als "Z“ ? 
/Buchstabe ? 

/ S • O • 

/geholtes Zeichen 

;|20 = “ “ 

/Steuerzeichen ? 

;“A“ 

/groesser als "A“ ? 

/“ “ bis “(Klammeraffe)“ ? 

/geholtes Zeichen 

/kleiner als “A“ ? 
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B149 

C9 

5B 


CMP 

#$5B 

;$5A = ’Z" 

B14B 

BO 

03 


BCS 

$B150 

;groesser als "Z" ? 

B14D 

4C 

E6 

BO 

OMP 

$B0E6 

(•Buchstabe ? 

B150 

C9 

CI 


CMP 

#$C1 

;Shift + ’A" 

B152 

90 

DD 


BCC 

$B131 

(•kleiner als ’Shift A" ? 

B154 

C9 

DB 


CMP 

#$DB 

;$DA = Shift + ’Z" 

B156 

BO 

D9 


BCS 

$B131 

(•groesser als "Shift Z" ? 

B158 

4C 

E6 

BO 

OMP 

$B0E6 

(•Shift + Buchstabe ? 

FETCHTAB: 






B15B 

05 

11 

12 

13 IC 

ID lE IF 

(•Tabelle fuer Sondercodes 

B163 

90 

91 

92 

93 94 

9C 9D 9E 


B16B 

9F 

00 

00 

00 



RVSBLANK; 






B170 

A5 

D4 


LDA 

$D4 

; "-Merker 

B172 

48 



PHA 


;sichern 

B173 

A9 

00 


LDA 

#$00 


B175 

85 

D4 


STA 

$D4 

(•"-Merker loeschen 

B177 

A9 

12 


LDA 

#$12 

(•(RVS on) 

B179 

20 

D2 

FF 

OSR 

BSOUT 

(•ausgeben 

B17C 

A9 

20 


LDA 

#$20 

« * a 

/ 

B17E 

20 

D2 

FF 

OSR 

BSOUT 

(•ausgeben 

B181 

A9 

9D 


LDA 

#$9D 

(•(Cursor left) 

B183 

20 

D2 

FF 

OSR 

BSOUT 

(•ausgeben 

B186 

A9 

92 


LDA 

#$92 

;(RVS off) 

B188 

20 

D2 

FF 

OSR 

BSOUT 

(•ausgeben 

B18B 

68 



PLA 



B18C 

85 

D4 


STA 

$D4 

(•"-Merker restaurieren 

B18E 

60 



RTS 



BEFSCRSV: 






B18F 

20 

DB 

83 

OSR 

INCBASBZ 

(•Code ueberlesen 

B192 

20 

23 

81 

OSR 

SOPEN 

;OPEN-Befehl 

B195 

A6 

B8 


LDX 

$B8 

(•Dateinummer 

B197 

20 

C9 

FF 

OSR 

CHKOUT 

(•als Ausgabekanal 

B19A 

A2 

00 


LDX 

#$00 

(•Zaehler 

B19C 

BD 

00 

04 

LDA 

$0400,X 

;Video-RAM l.Teil 

B19F 

20 

D2 

FF 

OSR 

BSOUT 

; 1 Byte ausgeben 

B1A2 

BD 

00 

D8 

LDA 

$D800,X 

;Farb-RAM l.Teil 

B1A5 

20 

D2 

FF 

OSR 

BSOUT 


B1A8 

BD 

FA 

04 

LDA 

$04FA,X 

(•Video-RAM 2.Teil 

BlAB 

20 

D2 

FF 

OSR 

BSOUT 


Bl AE 

BD 

FA 

D8 

LDA 

$D8FA,X 

;Farb-RAM 2.Teil 

BIBI 

20 

D2 

FF 

OSR 

BSOUT 


B1B4 

BD 

F4 

05 

LDA 

$05F4,X 

;Video-RAM 3.Teil 

B1B7 

20 

D2 

FF 

OSR 

BSOUT 


BIBA 

BD 

F4 

D9 

LDA 

$D9F4,X 

;Farb-RAM 3.Teil 

BIBD 

20 

D2 

FF 

OSR 

BSOUT 


BICO 

BD 

EE 

06 

LDA 

$06EE,X 

;Video-RAM 4.Teil 
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B1C3 

20 

D2 

FF 

3SR 

BSOUT 


B1C6 

Bü 

EE 

DA 

EDA 

$DAEE,X 

;Farb-RAM 4.Teil 

B1C9 

20 

D2 

FF 

OSR 

BSOUT 


BlCC 

E8 



INX 


;Zaehler erhoehen 

BICD 

EO 

FA 


OPX 

#$FA 

;250 = 1000/4 

BICF 

DO 

OB 


BNE 

$B190 

(■nicht fertig ? 

BlDl 

20 

00 

FF 

OSR 

OEROH 

(■Kanal schliessen 

B1D4 

A5 

B8 


EDA 

$B8 

(■Dateinummer 

B1D6 

20 

03 

FF 

OSR 

OEOSE 

(■Datei schliessen 

B1D9 

40 

2A 

82 

OMP 

ENDSMB 

(■Befehl fertig 

BEFSCRLD: 






BIDC 

20 

DB 

83 

OSR 

INOBASBZ 

(■Kommentar siehe SGRSV 

BIDF 

20 

23 

81 

OSR 

SOPEN 


B1E2 

A6 

B8 


EDX 

$B8 


B1E4 

20 

06 

FF 

OSR 

OHKIN 


B1E7 

A2 

00 


EDX 

#$00 


B1E9 

20 

OF 

FF 

OSR 

BASIN 

(■ein Zeichen holen 

BIEC 

9D 

00 

04 

STA 

$0400,X 


BIEF 

20 

OF 

FF 

OSR 

BASIN 


B1F2 

9D 

00 

D8 

STA 

$D800,X 


B1F5 

20 

OF 

FF 

OSR 

BASIN 


B1F8 

9D 

FA 

04 

STA 

$04FA,X 


BIFB 

20 

OF 

FF 

OSR 

BASIN 


BIFE 

9D 

FA 

D8 

STA 

$D8FA,X 


B201 

20 

OF 

FF 

OSR 

BASIN 


B204 

9D 

F4 

05 

STA 

$05F4,X 


B207 

20 

OF 

FF 

OSR 

BASIN 


B20A 

9D 

F4 

D9 

STA 

$D9F4,X 


B20D 

20 

OF 

FF 

OSR 

BASIN 


B210 

9D 

EE 

06 

STA 

$06EE,X 


B213 

20 

OF 

FF 

OSR 

BASIN 


B216 

9D 

EE 

DA 

STA 

$DAEE,X 


B219 

E8 



INX 



B21A 

EO 

FA 


OPX 

#$FA 


B21C 

DO 

OB 


BNE 

$B1E9 


B21E 

20 

00 

FF 

OSR 

OEROH 


B221 

A5 

B8 


EDA 

$B8 


B223 

20 

03 

FF 

OSR 

OEOSE 


B226 

40 

2A 

82 

OMP 

ENDSMB 


BEFTEXT: 






B229 

20 

DB 

83 

OSR 

INOBASBZ 

(■Gode ueberiesen 

B22C 

20 

27 

94 

OSR 

SGETADR 

; X holen 

B22F 

84 

09 


STY 

$09 

(■als X-Koord. speichern 

B231 

85 

OA 


STA 

$0A 

B233 

20 

FO 

81 

OSR 

SGETBYTO 

; Y holen 

B236 

86 

A4 


STX 

$A4 

(■als Y-Koord. speichern 

B238 

20 

31 

80 

OSR 

SGHKGOM 

(■Komma ? 

B23B 

20 

B7 

86 

OSR 

SGETSTR 

(■String holen 

B23E 

85 

21 


STA 

$21 
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B240 

86 

20 


STX 

$20 

;Stringadr. nach $20,$21 

B242 

A5 

69 


LDA 

$69 

;Strinqlaenge 

B244 

85 

23 


STA 

$23 

;nach $23 

B246 

20 

7D 

93 

OSR 

GETPKTF 

;Punktfarbe holen 

B249 

20 

FO 

81 

OSR 

SGETBYTO 

;Groesse holen 

B24C 

8E 

6E 

OB 

STX 

GHGR 

;Zeichengroesse 

B24F 

EO 

00 


OPX 

#$00 


B251 

DO 

05 


BNE 

$B258 

;nicht 0 ? 

B253 

A9 

01 


LDA 

#$01 


B255 

8D 

6E 

OB 

STA 

GHGR 

;sonst Zeichengr. = 1 

B258 

20 

FO 

81 

OSR 

SGETBYTO 

;Abstand holen 

B25B 

8E 

48 

OB 

STX 

KRX 

,KRX hier fuer Abstand 

B25E 

AO 

00 


LDY 

#$00 


B260 

8C 

4D 

OB 

STY 

SGHRART 

;Sehriftarten-Flag 

B263 

84 

6A 


STY 

$6A 

;RVS-Flag 

B265 

A5 

A4 


LDA 

$A4 

;Koordinaten auf Stack 

B267 

48 



PHA 



B268 

A5 

09 


LDA 

$09 


B26A 

48 



PHA 



B26B 

A5 

OA 


LDA 

$0A 


B26D 

48 



PHA 



B26E 

AD 

6E 

OB 

LDA 

GHGR 

;Groesse auch auf Stack 

B271 

48 



PHA 



B272 

Bl 

20 


LDA 

($20),Y 

;1. Zeichen des Strings 

B274 

C9 

12 


OMP 

#$12 

;(RVS on) 

B276 

DO 

07 


BNE 

$B27F 

;nein ? 

B278 

A9 

80 


LDA 

#$80 


B27A 

85 

6A 


STA 

$6A 

;RVS-Flag setzen 

B27C 

40 

48 

B3 

OMP 

$B348 

;Ende ueberpruefen 

B27F 

09 

92 


OMP 

#$92 

;(RVS off) 

B281 

DO 

07 


BNE 

$B28A 

;nein ? 

B283 

A9 

00 


LDA 

#$00 


B285 

85 

6A 


STA 

$6A 

;RVS-Flag loeschen 

B287 

40 

48 

B3 

OMP 

$B348 

;Ende ueberpruefen 

B28A 

09 

01 


OMP 

#$01 

;(CTRL-A) 

B28C 

DO 

08 


BNE 

$B296 

; ne i n ? 

B28E 

A9 

00 


LDA 

#$00 


B290 

8D 

4D 

OB 

STA 

SGHRART 

/Schriftart = 0 

B293 

40 

48 

B3 

OMP 

$B348 

/Ende ueberpruefen 

B296 

09 

02 


OMP 

#$02 

/(GTRL-B) 

B298 

DO 

08 


BNE 

$B2A2 

/nein ? 

B29A 

A9 

01 


LDA 

#$01 


B29C 

8D 

4D 

OB 

STA 

SGHRART 

/Schriftart = 1 

B29F 

40 

48 

B3 

OMP 

$B348 

/Ende uberpruefen 

B2A2 

85 

AO 


STA 

$AG 

/Zeichen nach $AG 

B2A4 

09 

FF 


OMP 

#$FF 

/Gode fuer PI 

B2A6 

DO 

05 


BNE 

$B2AD 

/nein ? 
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B2A8 

A9 

7E 


EDA 

#$7E 

B2AA 

4C 

BE 

B2 

3MP 

$B2BE 

B2AD 

C9 

EO 


CMP 

#$E0 

B2AF 

90 

06 


BCC 

$B2B7 

B2B1 

38 



SEC 


B2B2 

E9 

40 


SBC 

#$40 

B2B4 

4C 

BE 

B2 

OMP 

$B2BE 

B2B7 

C9 

CO 


CMP 

#$co 

B2B9 

90 

03 


BCC 

$B2BE 

B2BB 

38 



SEC 


B2BC 

E9 

60 


SBC 

#$60 

B2BE 

C9 

40 


CMP 

#$40 

B2C0 

90 

15 


BCC 

$B2D7 

B2C2 

C9 

60 


CMP 

#$60 

B2C4 

BO 

05 


BCS 

$B2CB 

B2C6 

29 

BF 


AND 

#$BF 

B2C8 

4C 

D7 

B2 

JMP 

$B2D7 

B2CB 

C9 

80 


CMP 

#$80 

B2CD 

BO 

05 


BCS 

$B2D4 

B2CF 

29 

DF 


AND 

#$DF 

B2D1 

4C 

D7 

B2 

OMP 

$B2D7 

B2D4 

38 



SEC 


B2D5 

E9 

40 


SBC 

#$40 

B2D7 

45 

6A 


EOR 

$6A 

B2D9 

85 

AC 


STA 

$AC 

B2DB 

AD 

4D 

CB 

EDA 

SCHRART 

B2DE 

85 

AD 


STA 

$AD 

B2E0 

98 



TYA 


B2E1 

48 



PHA 


B2E2 

20 

B4 

Al 

OSR 

CHARZEI 

B2E5 

68 



PEA 


B2E6 

A8 



TAY 


B2E7 

68 



PEA 


B2E8 

8D 

6E 

CB 

STA 

CHGR 

B2EB 

68 



PEA 


B2EC 

85 

OA 


STA 

$0A 

B2EE 

68 



PEA 


B2EF 

85 

09 


STA 

$09 

B2F1 

68 



PEA 


B2F2 

85 

A4 


STA 

$A4 

B2F4 

18 



CEC 


B2F5 

A5 

09 


EDA 

$09 

B2F7 

6D 

48 

CB 

ADC 

KRX 

B2FA 

85 

09 


STA 

$09 

B2FC 

A5 

OA 


EDA 

$0A 

B2FE 

69 

00 


ADC 

#$00 

B300 

85 

OA 


STA 

$0A 


;BS-Code $7E 
(■weiter 


;ASC-Code kleiner $E0 ? 

;$40 abziehen 
; weiter 

;ASC-Code kleiner $C0 ? 
;$60 abziehen 


;Code kleiner $40 ? 

;Code groesser gleich $60 ? 

;Bit 6 ausblenden 

(■weiter 


(■Code groesser gleich $80 ? 

(■Bit 5 ausblenden 

(■weiter 

(■sonst $40 abziehen 

;RVS-Flag beruecksichtigen 
(■zu malender BS-Code 

(■'Bit 8' des BS-Codes 
;Y retten 

(■Zeichen malen 

;Y restaurieren 

(Groesse und Koord. rest. 


;$09($0A = $09($0A + Abstand 
(■Abstand der Zeichen 
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B302 

C8 



INY 


;Zaehler im String erh. 

B303 

C4 

23 


OPY 

$23 

;mit Stringlaenge vgl. 

B305 

DO 

03 


BNE 

$B30A 

(•nicht erreicht ? 

B307 

4C 

2A 

82 

3MP 

ENDSMB 

(•Befehl fertig 

B30A 

4C 

65 

B2 

3MP 

$B265 

(•zur Schleife 

BEFCSET: 






B30D 

20 

02 

82 

3SR 

SGETBYTN 

(•Typ (0(1(2) holen 

B310 

EO 

02 


OPX 

#$02 


B312 

DO 

10 


BNE 

$B330 

(•nicht 2 ? 

B314 

A9 

95 


LDA 

#$95 

(•(unsinn (s.u.)) 

B316 

8D 

00 

DD 

STA 

0IA2PRA 


B319 

A9 

3B 


LDA 

#$3B 

; Hi res ein 

B31B 

8D 

11 

DO 

STA 

VIOSTl 

;VIG Steuerreg. 1 

B31E 

A9 

OB 


LDA 

#$0B 

(•Grafik nach $E000 

B320 

8D 

18 

DO 

STA 

VIOADS 

;VIG Adressreg. 

B323 

A9 

94 


LDA 

#$94 

;VIG-Bereich ab $0000 

B325 

8D 

00 

DD 

STA 

0IA2PRA 

;0IA2 Port A 

B328 

A9 

OA 


LDA 

#$0A 


B32A 

8D 

B3 

05 

STA 

GMEMFLAG 

;Grafik-RAM-Flag 

B32D 

40 

2A 

82 

3MP 

ENDSMB 

(•Befehl fertig 

B330 

20 

37 

A8 

3SR 

NRM 

;GIA2 und VIG normieren 

B333 

EO 

01 


OPX 

#$01 

(•Typ von GSET in X 

B335 

DO 

05 


BNE 

$B33G 

(•nicht 1 ? 

B337 

A9 

OE 


LDA 

#$0E 

; (Kleinschrift) 

B339 

20 

D2 

FF 

OSR 

BSOUT 

(•ausgeben 

B33C 

40 

2A 

82 

JMP 

ENDSMB 

(•Befehl fertig 

BEFVOL 







B33F 

20 

02 

82 

3SR 

SGETBYTN 

(• Lautstaerke holen 

B342 

8E 

18 

D4 

STX 

$D418 

(•in SID-Register 24 

B345 

40 

2A 

82 

JMP 

ENDSMB 

(•Befehl fertig 

; Fortsetzung 

zu 

TEXT 



B348 

68 



PLA 


(•Groesse und Koord. von 

B349 

8D 

6E 

OB 

STA 

GHGR 

;Stack holen und als akt. 

B34C 

68 



PLA 


(•Parameter speichern 

B34D 

85 

OA 


STA 

$0A 


B34F 

68 



PLA 



B350 

85 

09 


STA 

$09 


B352 

68 



PLA 



B353 

85 

A4 


STA 

$A4 


B355 

08 



INY 


(•Zeahler im String erhoeh. 

B356 

04 

23 


OPY 

$23 

;Stringlaenge 

B358 

DO 

BO 


BNE 

$B30A 

(•nicht err. ( dann Schleife 

B35A 

40 

2A 

82 

OMP 

ENDSMB 

(•Befehl fertig 



Kommentiertes Assembler-Listing 


247 


BEFDISK: 


B35D 

20 

DB 

83 

OSR 

INCBASBZ 

;Code ueberlesen 

B360 

20 

CC 

FF 

OSR 

CERCH 

;Kanaele schliessen 

B363 

A9 

01 


EDA 

#$01 


B365 

20 

03 

FF 

OSR 

CE OSE 

(•Datei #1 schliessen 

B368 

20 

CC 

FF 

DSR 

CERCH 

;Kanaele schliessen 

B36B 

20 

B7 

86 

OSR 

SGETSTR 

,-String holen 

B36E 

A8 



TAY 


;Stringadr. high 

B36F 

A5 

69 


EDA 

$69 

;Stringlaenge 

B371 

20 

Bü 

FF 

DSR 

SETFNPAR 

;Filenamenparameter setzen 

B374 

A9 

01 


EDA 

#$01 

;Dateinr. 1 

B376 

A2 

08 


EDX 

#$08 

;Geraetenr. 8 

B378 

AO 

OF 


EDY 

#$0F 

;Sekundaeradresse 15 

B37A 

20 

BA 

FF 

OSR 

SETFPAR 

; F i le-parameter setzen 

B37D 

20 

CO 

FF 

OSR 

OPEN 

(•Datei oeffnen 

B380 

A2 

01 


EDX 

#$01 


B382 

20 

C9 

FF 

3SR 

CHKOUT 

(•Datei #1 zur Ausgabe 

B385 

20 

CC 

FF 

OSR 

CERCH 

(•Kanaele schliessen 

B388 

A9 

01 


EDA 

#$01 


B38A 

20 

C3 

FF 

OSR 

CEOSE 

(•Datei #1 schliessen 

B38D 

20 

CC 

FF 

3 SR 

CERCH 

(•Kanaele schliessen 

B390 

40 

2A 

82 

3MP 

ENDSMB 

(•Befehl fertig 


BEFUSE: 


B393 

20 

DB 

83 

3SR 

INCBASBZ 

(•Code ueberlesen 

B396 

20 

B7 

86 

3SR 

SGETSTR 

(•String holen 

B399 

85 

A7 


STA 

$A7 

(•Stringadr. nach $A6($A7 

B39B 

86 

A6 


STX 

$A6 


B39D 

A5 

69 


EDA 

$69 


B39F 

85 

AE 


STA 

$AE 

(•Stringlaenge nach $AE 

B3A1 

AO 

00 


EDY 

#$00 


B3A3 

Bl 

A6 


EDA 

($A6)(Y 

(•Zeichen aus String 

B3A5 

C9 

23 


CMP 

#$23 

;■#■ 

B3A7 

DO 

02 


BNE 

$B3AB 

(•nein ? 

B3A9 

A9 

20 


EDA 

#$20 

. * * 

/ 

B3AB 

99 

12 

02 

STA 

USEPUFF(Y 

; Zeichen in Puffer legen 

B3AE 

C8 



INY 


(•Zaehler erhoehen 

B3AF 

C4 

69 


CPY 

$69 

;Stringlaenge 

B3B1 

DO 

FO 


BNE 

$B3A3 

;nein( dann Schleife 

B3B3 

8C 

OD 

02 

STY 

USEEEN 

;Strinlaenge speichern 

B3B6 

20 

31 

80 

3SR 

SCHKCOM 

(•Komma ? 

B3B9 

20 

B7 

86 

3SR 

SGETSTR 

(•String holen 

B3BC 

85 

A9 


STA 

$A9 

(•Stringadr. nach $A8($A9 

B3BE 

86 

A8 


STX 

$A8 


B3C0 

A5 

69 


EDA 

$69 

(Stringlaenge 

B3C2 

85 

AF 


STA 

$AF 

(•nach $AF 

B3C4 

AO 

00 


EDY 

#$00 


B3C6 

84 

A4 


STY 

$A4 

(•Position von ".“in Str. 2 

B3C8 

84 

09 


STY 

$09 

(•Position von "."in Str. 1 

B3CA 

A2 

00 


EDX 

#$00 


B3CC 

Bl 

A6 


EDA 

($A6)(Y 

(•Zeichen aus 1. String 
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B3CE C9 2E CMP #$2E 

B3D0 FO OC BEQ $B3DE ;ja ? 

B3D2 E6 09 INC $09 ,-Position erhoehen 

B3D4 E8 INX 

B3D5 20 E9 9A OSR INCA6A7 ;naechstes Zeichen 

B3D8 A5 09 LDA $09 ,-Position 

B3DA C5 AE CMP $AE ;1. Stringlaenge 

B3DC DO EE BNE $B3CC ;nein, dann Schleife 

B3DE A5 09 LDA $09 

B3E0 85 OA STA $0A ,-Punktposition 1 

B3E2 8E 79 CB STX ZEILENANZ ;hier 1. Punktpos. 


B3E5 

Bl 

A8 


LDA 

($A8)(Y 

B3E7 

C9 

2E 


CMP 

#$2E 

B3E9 

FO 

OB 


BEQ 

$B3F6 

B3EB 

E6 

A4 


INC 

$A4 

B3ED 

20 

FO 

9A 

OSR 

INCA8A9 

B3F0 

A5 

A4 


LDA 

$A4 

B3F2 

C5 

AF 


CMP 

$AF 

B3F4 

DO 

EF 


BNE 

$B3E5 

B3F6 

A5 

A4 


LDA 

$A4 

B3F8 

85 

A5 


STA 

$A5 

B3FA 

A5 

A9 


LDA 

$A9 

B3FC 

8D 

AD 

C5 

STA 

AY + 1 

B3FF 

A5 

A8 


LDA 

$A8 

B401 

8D 

AC 

C5 

STA 

AY 

B404 

A5 

A7 


LDA 

$A7 

B406 

8D 

98 

C5 

STA 

AX + 1 

B409 

A5 

A6 


LDA 

$A6 

B40B 

8D 

97 

C5 

STA 

AX 

B40E 

20 

FO 

9A 

OSR 

INCA8A9 

B411 

E6 

A4 


INC 

$A4 

B413 

A5 

09 


LDA 

$09 

B415 

C5 

AE 


CMP 

$AE 

B417 

BO 

lE 


BCS 

$B437 

B419 

A5 

A4 


LDA 

$A4 

B41B 

C5 

AF 


CMP 

$AF 

B41D 

BO 

18 


BCS 

$B437 

B41F 

Bl 

A6 


LDA 

($A6)(Y 

B421 

C9 

23 


CMP 

#$23 

B423 

DO 

07 


BNE 

$B42C 

B425 

Bl 

A8 


LDA 

($A8)(Y 

B427 

20 

FO 

9A 

OSR 

INCA8A9 

B42A 

E6 

A4 


INC 

$A4 

B42C 

20 

9B 

B4 

OSR 

MERKZEI 

B42F 

E6 

09 


INC 

$09 

B431 

20 

E9 

9A 

OSR 

INCA6A7 

B434 

4C 

13 

B4 

OMP 

$B413 


(-Zeichen aus 2.String 

m m 



(-Position erhoehen 

(-naechstes Zeichen 

(-Position 

(-2. Stringlaenge 

(-nicht err.( dann Schleife 


(-Punktposition 2 
(-Stringadr. 2 nach AY(AY + 1 


(-Stringadr. 1 nach AX(AX + 1 


(-naechstes Zeichen (2) 
(-Pos.Zaehler 2 erhoehen 
(-Positionszaehler 1 
(-1. Stringlaenge 
(-fertig mit Vorkommast. ? 
(-Positionszaehler 2 
(-2. Stringlaenge 
(-fertig ? 

(-Zeichen aus 1. String 

;”#• 

(-nein ? 

(-Zeichen aus 2.String 
(-naechstes Zei. in 2. Str. 
(-Positionszaehler 2 
(-Zeichen ablegen 
(-Positionszaehler 1 
(-naechstes Zei. in 1. Str. 
;Schleife 
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B437 

AD 

97 

05 

LDA 

AX 

;$A6,$A7 und $A8,$A9 

B43A 

85 

A6 


STA 

$A6 

(■restaurieren 

B43C 

AD 

98 

05 

LDA 

AX + 1 


B43F 

85 

A7 


STA 

$A7 


B441 

AD 

AO 

05 

LDA 

AY 


B444 

85 

A8 


STA 

$A8 


B446 

AD 

AD 

05 

LDA 

AY + 1 


B449 

85 

A9 


STA 

$A9 


B44B 

AE 

79 

OB 

LDX 

ZEILENANZ 

;1. Punktpos. 

B44E 

A5 

A8 


LDA 

$A8 

;$A8,$A9 um 1 vermindern 

B450 

DO 

02 


BNE 

$B454 


B452 

C6 

A9 


DEO 

$A9 


B454 

C6 

A8 


DEO 

$A8 


B456 

C6 

A5 


DEO 

$A5 


B458 

A5 

OA 


LDA 

$0A 

(•Position 1 

B45A 

C9 

FF 


OMP 

#$FF 


B45C 

FO 

20 


BEQ 

$B48A 

(•abgelaufen ? 

B45E 

A5 

A5 


LDA 

$A5 

(■Position 2 

B460 

C9 

FF 


OMP 

#$FF 


B462 

FO 

26 


BEQ 

$B48A 

(•abgelaufen ? 

B464 

Bl 

A6 


LDA 

($A6),Y 

(Zeichen aus 1. String 

B466 

09 

23 


OMP 

#$23 

;■#• 

B468 

DO 

OE 


BNE 

$B478 

(•nein ? 

B46A 

Bl 

A8 


LDA 

($A8),Y 

(•Zeichen aus 2. String 

B46C 

48 



PHA 


;sichern 

B46D 

06 

A5 


DEO 

$A5 

(•Position 2 vermindern 

B46F 

A5 

A8 


LDA 

$A8 

;$A8($A9 vermindern 

B471 

DO 

02 


BNE 

$B475 


B473 

06 

A9 


DEO 

$A9 


B475 

06 

A8 


DEO 

$A8 


B477 

68 



PLA 


(•Zeichen wieder holen 

B478 

20 

9B 

B4 

3 SR 

MERKZEI 

(Zeichen ab legen 

B47B 

OA 



DEX 


;X vermindern( da jetzt 

B47C 

OA 



DEX 


(•Schleife ruckwaerts 

B47D 

06 

OA 


DEO 

$0A 

(•Position 1 vermindern 

B47F 

A5 

A6 


LDA 

$A6 

;$A6($A7 vermindern 

B481 

DO 

02 


BNE 

$B485 


B483 

06 

A7 


DEO 

$A7 


B485 

06 

A6 


DEO 

$A6 


B487 

40 

58 

B4 

OMP 

$B458 

(•Schleife 

;Puffen ausqeben 

und i 

Fertig 


B48A 

A2 

00 


LDX 

#$00 


B48C 

BD 

12 

02 

LDA 

USEPUFF,X 

! /Zeichen aus Puffer 

B48F 

20 

D2 

FF 

OSR 

BSOUT 

; ausgebe n 

B492 

E8 



INX 



B493 

EO 

OD 

02 

OPX 

USELEN 

(•auszugebende Laenge 

B496 

DO 

F4 


BNE 

$B480 

(•nicht err.( dann Schlei 

B498 

40 

2A 

82 

OMP 

ENDSMB 

(•Befehl fertig 
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MERKZEI: 


B49B 

9D 

12 

02 

STA 

USEPUFF,X 

(•Zeichen in Puffer legen 

B49E 

E8 



INX 


(•Zeiger erhoehen 

B49F 

60 



RTS 



BEFHRDCPY: 






B4A0 

20 

DB 

83 

OSR 

INCBASBZ 

(•Code ueberlesen 

B4A3 

20 

CC 

FF 

OSR 

CLRCH 

(•Kanaele schliessen 

B4A6 

A9 

01 


LDA 

#$01 

(•Datei #1 

B4A8 

20 

C3 

FF 

OSR 

CLOSE 

; schliessen 

B4AB 

20 

CC 

FF 

OSR 

CLRCH 

(•Kanaele schliessen 

B4AE 

A9 

01 


LDA 

#$01 

(•Datei #1 

B4B0 

A2 

04 


LDX 

#$04 

(•Geraetenr. 4 

B4B2 

AO 

FF 


LDY 

#$FF 

(•keine Sek. adr. 

B4B4 

20 

BA 

FF 

OSR 

SETFPAR 

(•Fileparameter setzen 

B4B7 

20 

CO 

FF 

OSR 

OPEN 

(•Datei oeffnen 

B4BA 

A2 

01 


LDX 

#$01 


B4BC 

20 

C9 

FF 

OSR 

CHKOUT 

(•Datei #1 = Ausgabekanal 

B4BF 

A9 

OD 


LDA 

#$0D 

(•Zeilenvorschub 

B4C1 

20 

D2 

FF 

OSR 

BSOUT 

(•ausgeben 

B4C4 

A9 

04 


LDA 

#$04 

;$20,$21 auf $0400 

B4C6 

85 

21 


STA 

$21 


B4C8 

A9 

00 


LDA 

#$00 


B4CA 

85 

20 


STA 

$20 


B4CC 

AO 

00 


LDY 

#$00 


B4CE 

A2 

00 


LDX 

#$00 


B4D0 

Bl 

20 


LDA 

($20),Y 

(•Zeichen aus Video-RAM 

B4D2 

C9 

80 


CMP 

#$80 


B4D4 

90 

09 


BCC 

$B4DF 

;BS-Code kleiner 128 ? 

B4D6 

49 

80 


EOR 

#$80 

(•Bit 7 loeschen 

B4D8 

48 



PHA 


(•Wert sichern 

B4D9 

A9 

12 


LDA 

#$12 

;(RVS on) 

B4DB 

20 

D2 

FF 

OSR 

BSOUT 

(•ausgeben 

B4DE 

68 



PLA 


(•Wert holen 

B4DF 

C9 

20 


CMP 

#$20 

a ■ 

! 

B4E1 

BO 

13 


BCS 

$B4F6 

(•groesser gleich “ “ ? 

B4E3 

48 



PHA 


(Wert wieder auf Stapel 

B4E4 

AD 

18 

DO 

LDA 

VICADS 

;VIC Adressregister 

B4E7 

C9 

17 


CMP 

#$17 

(•Wert bei Gr./Kleinschr. 

B4E9 

DO 

05 


BNE 

$B4F0 

;Gross/Grafikz. ? 

B4EB 

A9 

11 


LDA 

#$11 

(•(Cursor down) (Keins.) 

B4ED 

20 

D2 

FF 

OSR 

BSOUT 

(•ausgeben 

B4F0 

68 



PLA 


;Code holen 

B4F1 

09 

40 


ORA 

#$40 

(•Bit 6 

B4F3 

4C 

18 

B5 

OMP 

$B518 

;weiter 

B4F6 

C9 

40 


CMP 

#$40 


B4F8 

90 

ID 


BCC 

$B517 

(•kleiner 64 ? 

B4FA 

C9 

7F 


CMP 

#$7F 


B4FC 

FO 

14 


BEQ 

$B512 

(•Code = 127 ? 
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B4FE 

48 



PHA 


B4FF 

AD 

18 

DO 

LDA 

VICADS 

B502 

C9 

17 


CMP 

#$17 

B504 

DO 

05 


BNE 

$B50B 

B506 

A9 

11 


LDA 

#$11 

B508 

20 

D2 

FF 

JSR 

BSOUT 

B50B 

68 



PLA 


B50C 

18 



CLC 


B50D 

69 

80 


ADC 

#$80 

B50F 

4C 

18 

B5 

JMP 

$B518 

B512 

A9 

BF 


LDA 

#$BF 

B514 

4C 

18 

B5 

OMP 

$B518 

B517 

EA 



NOP 


B518 

C9 

22 


CMP 

#$22 

B51A 

DO 

2B 


BNE 

$B547 

B51C 

A9 

08 


LDA 

#$08 

B51E 

20 

D2 

FF 

OSR 

BSOUT 

B521 

A9 

80 


LDA 

#$80 

B523 

20 

D2 

FF 

OSR 

BSOUT 

B526 

A9 

83 


LDA 

#$83 

B528 

20 

D2 

FF 

OSR 

BSOUT 

B52B 

A9 

80 


LDA 

#$80 

B52D 

20 

02 

FF 

OSR 

BSOUT 

B530 

A9 

80 


LDA 

#$80 

B532 

20 

D2 

FF 

OSR 

BSOUT 

B535 

A9 

83 


LDA 

#$83 

B537 

20 

D2 

FF 

OSR 

BSOUT 

B53A 

A9 

80 


LDA 

#$80 

B53C 

20 

D2 

FF 

OSR 

BSOUT 

B53F 

A9 

OF 


LDA 

#$0F 

B541 

20 

D2 

FF 

OSR 

BSOUT 

B544 

4C 

4A 

B5 

OMP 

$B54A 

B547 

20 

D2 

FF 

OSR 

BSOUT 

B54A 

A9 

00 


LDA 

#$00 

B54C 

85 

D4 


STA 

$D4 

B54E 

A9 

91 


LDA 

#$91 

B550 

20 

D2 

FF 

OSR 

BSOUT 

B553 

A9 

92 


LDA 

#$92 

B555 

20 

D2 

FF 

OSR 

BSOUT 

B558 

C8 



INY 


B559 

CO 

28 


CPY 

#$28 

B55B 

FO 

03 


BEQ 

$B560 

B55D 

4C 

DO 

B4 

OMP 

$B4D0 

B560 

A9 

OD 


LDA 

#$0D 

B562 

20 

D2 

FF 

OSR 

BSOUT 

B565 

AO 

00 


LDY 

#$00 

B567 

18 



CLC 



;Code sichern 
; VIC-Adressrgister 
;Gross-Kleinschrift 
;nein ? 

;(Umsch. auf Kleinschr.) 

; ausgeben 
;Co d e holen 

;+ 128 
; weiter 

;Code = 191 
/weiter 

;(???) 

m 

/ 

/kein Anf.Zeichen ? 

/Codes 8,128,131,128,128, 
,■131,128,15 ausgeben 
/Bit-Image-Sequenz fuer 
/die Darstellung eines 
/ Anfuehrungszeichens (") 


/weiter 

/Code ausgeben 

/■-Merker = 0 

/(Cursor up) = (Crafikz.) 

/ausgeben 

/(RVS off) 

/ausgeben 

/naechstes Zeichen 

/Zeilenende ? 

/Schleife 

/Zeilenvorschub 

/ausgeben 
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B568 

A5 

20 


LDA 

$20 

;$20,$21 um 40 erhoehen 

B56A 

69 

28 


ADO 

#$28 


B56C 

85 

20 


STA 

$20 


B56E 

A5 

21 


LDA 

$21 


B570 

69 

00 


ADO 

#$00 


B572 

85 

21 


STA 

$21 


B574 

E8 



INX 


;naechste Zeile 

B575 

EO 

19 


OPX 

#$19 

;25 Zeilen 

B577 

DO 

E2 


BNE 

$B55B 

(•nicht fertig ? 

B579 

20 

00 

FF 

3 SR 

OLROH 

;Kanaele schliessen 

B57C 

A9 

01 


LDA 

#$01 


B57E 

20 

03 

FF 

OSR 

OLOSE 

(•Datei #1 schliessen 

B581 

20 

00 

FF 

3SR 

OLROH 

(•Kanaele schliessen 

B584 

4C 

2A 

82 

3MP 

ENDSMB 

(•Befehl fertig 

;bei ’KEY128' 





B587 

20 

31 

80 

3SR 

SOHKOOM 

(•Komma ? 

B58A 

4C 

AA 

BD 

3MP 

DSOBMOUTl 

;’ds-cbm' ausgeben (???) 

;bei 'KEYO' 





B58D 

40 

16 

BE 

OMP 

$BE16 

(•zum DISPLAY-Befehl 

BEFKEY 

; 






B590 

20 

02 

82 

3SR 

SGETBYTN 

;N r. holen 

B593 

EO 

00 


OPX 

#$00 


B595 

FO 

F6 


BEQ 

$B58D 

;0 ? 

B597 

EO 

80 


OPX 

#$80 


B599 

FO 

EO 


BEQ 

$B587 

(•128 ? 

B59B 

EO 

11 


OPX 

#$11 


B59D 

90 

05 


BOO 

$B5A4 

(•kleiner 17 ? 

B59F 

A9 

00 


LDA 

#$00 

;nr. f. 'bad mode' 

B5A1 

40 

80 

88 

3MP 

SERROUT 

(•Fehler ausgeben 

B5A4 

OA 



DEX 



B5A5 

86 

AA 


STX 

$AA 

;Nr.-l nach $AA 

B5A7 

A9 

00 


LDA 

#$00 


B5A9 

85 

AB 


STA 

$AB 

;$AA($AB = 16 * (Nr.-l) 

B5AB 

06 

AA 


ASL 

$AA 


B5AD 

26 

AB 


ROL 

$AB 


B5AF 

06 

AA 


ASL 

$AA 


B5B1 

26 

AB 


ROL 

$AB 


B5B3 

06 

AA 


ASL 

$AA 


B5B5 

26 

AB 


ROL 

$AB 


B5B7 

06 

AA 


ASL 

$AA 


B5B9 

26 

AB 


ROL 

$AB 


B5BB 

18 



OLO 



B5BC 

A5 

AA 


LDA 

$AA 

;$AA($AB = $AA($AB + $064D 

B5BE 

69 

4D 


ADO 

#$4D 


B5C0 

85 

AA 


STA 

$AA 


B5C2 

A5 

AB 


LDA 

$AB 


B5C4 

69 

06 


ADO 

#$06 




Kommentiertes Assembler-Listing 


253 


B5C6 

85 

AB 


STA 

$AB 


B5C8 

20 

31 

80 

OSR 

SOHKOOM 

;Komma ? 

B5CB 

20 

B7 

86 

OSR 

SGETSTR 

,-String holen 

B5CE 

85 

A9 


STA 

$A9 

;Stringadr. nach $A8,$A9 

B5D0 

86 

A8 


STX 

$A8 


B5D2 

AO 

00 


LDY 

#$00 


B5D4 

Bl 

A8 


LOA 

($A8) ,Y 

(•Zeichen aus String 

B5D6 

91 

AA 


STA 

($AA),Y 

; in Key-Tabelle 

B5D8 

08 



INY 



B5D9 

04 

69 


OPY 

$69 

;Stringlaenge 

B5DB 

FO 

04 


BEQ 

$B5E1 

(■erreicht ? 

B5DD 

00 

OF 


OPY 

#$0F 

;max. 15 Zeichen 

B5DF 

90 

F3 


BOO 

$B5D4 

(•nicht erreicht ? 

B5E1 

A9 

00 


EDA 

#$00 

(•Tabelleneintrag mit 0 ab 

B5E3 

91 

AA 


STA 

($AA),Y 

;schliessen 

B5E5 

40 

2A 

82 

OMP 

ENDSMB 

(•Befehl fertig 


BEFPAINT: 


B5E8 

20 

DB 

83 

OSR 

INOBASBZ 

(•Gode ueberlesen 

B5EB 

20 

27 

94 

OSR 

SGETADR 

(•Start X holen 

B5EE 

8D 

98 

05 

STA 

AX + 1 

(•nach AX(AX + 1 und $09($0A 

B5F1 

85 

OA 


STA 

$0A 


B5F3 

80 

97 

05 

STY 

AX 


B5F6 

84 

09 


STY 

$09 


B5F8 

20 

FO 

81 

3SR 

SGETBYTG 

(•Start Y holen 

B5FB 

8E 

AO 

05 

STX 

AY 

(•nach AY und $A4 

B5FE 

86 

A4 


STX 

$A4 


B600 

20 

7D 

93 

OSR 

GETPKTF 

(■Punktfarbe holen 

B603 

A9 

00 


EDA 

#$00 


B605 

85 

65 


STA 

$65 

;div. Flags annullieren 

B607 

85 

64 


STA 

$64 

B609 

85 

62 


STA 

$62 


B60B 

85 

59 


STA 

$59 


B60D 

85 

57 


STA 

$57 


B60F 

85 

58 


STA 

$58 


B611 

85 

5A 


STA 

$5A 


B613 

A5 

F7 


EDA 

$F7 

(•Punktfarbe 

B615 

85 

66 


STA 

$66 

(•in $66 sichern 

B617 

A9 

OB 


EDA 

#$0B 

(■Punktfarbe 11 (TEST) 

B619 

85 

F7 


STA 

$F7 


B61B 

20 

97 

92 

OSR 

PUNKT 

(•Punkt gesetzt ? 
(•Ergebnis von 'TEST' 

B61E 

A5 

90 


EDA 

$90 

B620 

85 

6A 


STA 

$6A 

;Ist-Punktfarbe 

B622 

05 

66 


OMP 

$66 

;So 11-Punktfarbe 

B624 

DO 

03 


BNE 

$B629 

(■Punkt nicht gesetzt ? 

B626 

40 

2A 

82 

OMP 

ENDSMB 

(•sonst Befehl fertig 

B629 

AE 

97 

05 

EDX 

AX ;$5F($60 und $61 als akt. 

B620 

86 

5F 


STX 

$5F 

Koordinaten; im Folgenden 

B62E 

AD 

98 

05 

EDA 

AX + 1 

nur als x und y bezeichnet 

B631 

85 

60 


STA 

$60 
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B633 

AC 

AC 

C5 

LDY 

AY 


B636 

84 

61 


STY 

$61 


B638 

38 



SEC 



B639 

A5 

5F 


LDA 

$5F 

;$AA,$AB = X - 1 

B63B 

E9 

01 


SBC 

#$01 


B63D 

85 

AA 


STA 

$AA 


B63F 

A5 

60 


LDA 

$60 


B641 

E9 

00 


SBC 

#$00 


B643 

85 

AB 


STA 

$AB 


B645 

A5 

AB 


LDA 

$AB 


B647 

A6 

AA 


LDX 

$AA 


B649 

A4 

61 


LDY 

$61 


B64B 

20 

BA 

B9 

3SR 

TESTFREI 

; test(x-l,y) 

B64E 

DO 

OB 


BNE 

$B65B 

;Punkt gesetzt ? 

B650 

A5 

5F 


LDA 

$5F 

;x = X - 1 

B652 

DO 

02 


BNE 

$B656 


B654 

C6 

60 


DEC 

$60 


B656 

C6 

5F 


DEC 

$5F 


B658 

4C 

38 

B6 

3 MP 

$B638 

(•Schleife 

B65B 

A5 

5F 


LDA 

$5F 

(•naechst linken Randpunkt 

B65D 

8D 

97 

C5 

STA 

AX 

;als Anfangspunkt speichern 

B660 

A5 

60 


LDA 

$60 


B662 

8D 

98 

C5 

STA 

AX + 1 


B665 

4C 

24 

B9 

3MP 

$B924 

; s. u. 

B668 

A5 

5B 


LDA 

$5B 

(•Flagsatz $5B,$5C,$5D,$5E 

B66A 

85 

57 


STA 

$57 

(•nach $57($58($59($5A 

B66C 

A5 

5C 


LDA 

$5C 

(•Flagsatz beschr. Umgebung 

B66E 

85 

58 


STA 

$58 

;$5B ($57) fuer (x,y-l) 

B670 

A5 

5D 


LDA 

$5D 

;$5C ($58) fuer (X(y+1) 

B672 

85 

59 


STA 

$59 

;$5D ($59) fuer (x+l(y) 

B674 

A5 

5E 


LDA 

$5E 

;$5E ($5A) fuer (x-l(y) 

B676 

85 

5A 


STA 

$5A 


B678 

A9 

01 


LDA 

#$01 


B67A 

85 

5B 


STA 

$5B 

;$5B und $5C auf 1 setzen 

B67C 

85 

5C 


STA 

$5C 


B67E 

AD 

2C 

C5 

LDA 

HILFFLAG 


B681 

C9 

OA 


CMP 

#$0A 


B683 

FO 

13 


BEQ 

$B698 

(•Hilfflag = $0A ? 

B685 

A6 

5F 


LDX 

$5F 


B687 

A5 

60 


LDA 

$60 


B689 

A4 

61 


LDY 

$61 


B68B 

88 



DEY 



B68C 

20 

BA 

B9 

3SR 

TESTFREI 


B68F 

85 

5B 


STA 

$5B 

;$5B = test (X(y-l) 

B691 

AD 

2C 

C5 

LDA 

HILFFLAG 


B694 

C9 

05 


CMP 

#$05 


B696 

FO 

OC 


BEQ 

$B6A4 

(•Hilfflag = $05 ? 

B698 

A6 

5F 


LDX 

$5F 


B69A 

A5 

60 


LDA 

$60 
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B69C 

B69E 

B69F 

B6A2 

B6A4 

B6A6 

B6A8 

B6AA 

B6AC 

B6AE 

B6B0 

B6B3 

B6B5 

B6B6 

B6B8 

B6BA 

B6BC 

B6BE 

B6C0 

B6C2 

B6C4 

B6C6 

B6C9 

B6CB 

B6CD 

B6CF 

B6D1 

B6D2 

B6D4 

B6D6 

B6D8 

B6DA 

B6DC 

B6DE 

B6E1 

B6E3 

B6E5 

B6E7 

B6E9 

B6EB 

B6ED 

B6EF 

B6F1 

B6F3 

B6F5 

B6F7 

B6F9 

B6FB 


A4 

61 

LDY 

$61 

C8 


INY 


20 

BA B9 

JSR 

TESTFREI 

85 

50 

STA 

$50 

E6 

5F 

INO 

$5F 

DO 

02 

BNE 

$B6AA 

E6 

60 

INO 

$60 

A6 

5F 

LDX 

$5F 

A5 

60 

LDA 

$60 

A4 

61 

LDY 

$61 

20 

BA B9 

OSR 

TESTFREI 

85 

5D 

STA 

$5D 

38 


SEO 


A5 

5F 

LDA 

$5F 

E9 

02 

SBO 

#$02 

85 

5F 

STA 

$5F 

A5 

60 

LDA 

$60 

E9 

00 

SBO 

#$00 

85 

60 

STA 

$60 

A6 

5F 

LDX 

$5F 

A4 

61 

LDY 

$61 

20 

BA B9 

OSR 

TESTFREI 

85 

5E 

STA 

$5E 

E6 

5F 

INO 

$5F 

DO 

02 

BNE 

$B6D1 

E6 

60 

INO 

$60 

18 


OLO 


A5 

5B 

LDA 

$5B 

65 

50 

ADO 

$50 

65 

5D 

ADO 

$5D 

65 

5E 

ADO 

$5E 

C9 

04 

OMP 

#$04 

DO 

03 

BNE 

$B6E1 

4C 

30 B7 

OMP 

$B730 

A5 

5B 

LDA 

$5B 

C5 

57 

OMP 

$57 

DO 

46 

BNE 

$B72D 

A5 

50 

LDA 

$50 

C5 

58 

OMP 

$58 

DO 

32 

BNE 

$B71F 

A5 

5D 

LDA 

$5D 

05 

59 

OMP 

$59 

DO 

29 

BNE 

$B710 

A5 

5E 

LDA 

$5E 

05 

5A 

OMP 

$5A 

DO 

23 

BNE 

$B710 

A9 

01 

LDA 

#$01 

85 

62 

STA 

$62 


;$5C = test (x,y+l) 


;$5D = test (x+l,y) 


;$5E = test (x-l,y) 
;x restaurieren 


;Flagsumme $5B,$5C,$5D,$5E 
(•bilden 


(•nicht alle Flags ges. ? 
(•sonst nach $B73C 

(•neues Flag (x,y-l) 
(•(invertiertes) altes 
(•ungleich ? 

;(X(y+1) 

;ungleich 
;(x+l(y) 

(•ungleich ? 

;(x-l,y) 

(•ungleich ? 

;fertig-Flag setzen 
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B6FD 

A5 

5B 


EDA 

$5B 


B6FF 

DO 

05 


BNE 

$B706 


B701 

C6 

61 


DEO 

$61 


B703 

4C 

Bl 

B8 

OMP 

$B8B1 


B706 

A5 

50 


EDA 

$50 


B708 

FO 

09 


BEQ 

$B713 


B70A 

A5 

5B 


EDA 

$5B 


B70C 

49 

01 


EOR 

#$01 


B70E 

85 

57 


STA 

$57 


B710 

4C 

2D 

B7 

OMP 

$B72D 


B713 

A9 

00 


EDA 

#$00 


B715 

85 

62 


STA 

$62 

;fertig 

B717 

E6 

61 


INO 

$61 

B719 

4C 

Bl 

B8 

OMP 

$B8B1 


B71C 

4C 

00 

B8 

OMP 

$B800 


B71F 

A5 

50 


EDA 

$50 


B721 

DO 

04 


BNE 

$B727 


B723 

A5 

58 


EDA 

$58 


B725 

DO 

DF 


BNE 

$B706 


B727 

A5 

5B 


EDA 

$5B 


B729 

DO 

11 


BNE 

$B730 


B72B 

FO 

00 


BEQ 

$B6F9 


B72D 

A5 

5B 


EDA 

$5B 


B72F 

DO 

07 


BNE 

$B738 


B731 

A5 

57 


EDA 

$57 


B733 

FO 

03 


BEQ 

$B738 


B735 

40 

DD 

B8 

OMP 

$B8DD 


B738 

A5 

50 


EDA 

$50 


B73A 

FO 

OA 


BEQ 

$B706 


B73C 

A5 

5D 


EDA 

$5D 


B73E 

DO 

2F 


BNE 

$B76F 


B740 

38 



SEO 



B741 

A5 

5F 


EDA 

$5F 


B743 

E9 

01 


SBO 

#$01 


B745 

AA 



TAX 



B746 

A5 

60 


EDA 

$60 


B748 

E9 

00 


SBO 

#$00 


B74A 

A4 

61 


EDY 

$61 


B74C 

20 

D7 

B9 

JSR 

MERKEPKT 

;merke 

B74F 

E6 

5F 


INO 

$5F 


B751 

DO 

02 


BNE 

$B755 


B753 

E6 

60 


INO 

$60 


B755 

18 



OEO 




Flag 


(x-1,y) 
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B756 

A5 

5F 


EDA 

B758 

69 

01 


ADO 

B75A 

AA 



TAX 

B75B 

A5 

60 


EDA 

B75D 

69 

00 


ADO 

B75F 

A4 

61 


EDY 

B761 

20 

D7 

B9 

3SR 

B764 

A5 

61 


EDA 

B766 

80 

4F 

OA 

STA 

B769 

20 

6E 

B9 

3SR 

B76C 

4C 

00 

B8 

OMP 

B76F 

A5 

5E 


EDA 

B771 

DO 

30 


BNE 

B773 

18 



OEO 

B774 

A5 

5F 


EDA 

B776 

69 

01 


ADO 

B778 

AA 



TAX 

B779 

A5 

60 


EDA 

B77B 

69 

00 


ADO 

B77D 

A4 

61 


EDY 

B77F 

20 

D7 

B9 

3 SR 

B782 

A5 

5F 


EDA 

B784 

DO 

02 


BNE 

B786 

06 

60 


DEO 

B788 

06 

5F 


DEO 

B78A 

38 



SEO 

B78B 

A5 

5F 


EDA 

B78D 

E9 

01 


SBO 

B78F 

85 

AA 


STA 

B791 

A5 

60 


EDA 

B793 

E9 

00 


SBO 

B795 

85 

AB 


STA 

B797 

A5 

AB 


EDA 

B799 

A6 

AA 


EDX 

B79B 

A4 

61 


EDY 

B79D 

20 

D7 

B9 

OSR 

B7A0 

40 

64 

B7 

3 MP 

B7A3 

AD 

4F 

OA 

EDA 

B7A6 

05 

61 


OMP 

B7A8 

FO 

ID 


BEQ 

B7AA 

A5 

61 


EDA 

B7AC 

OD 

4F 

OA 

OMP 

B7AF 

FO 

09 


BEQ 

B7B1 

BO 

OA 


BOS 

B7B3 

A9 

OA 


EDA 

B7B5 

8D 

2B 

05 

STA 


$5F 

#$01 

$60 

#$00 

$61 

MERKEPKT ,-merke (x+l,y) 
$61 

PYMERK 

TABSAUBER 

$B80C 

$5E 

$B7A3 


$5F 

#$01 

$60 

#$00 

$61 

MERKEPKT ,-merke (x+l,y) 

$5F 

$B788 

$60 

$5F 

$5F 

#$01 

$AA 

$60 

#$00 

$AB 

$AB 

$AA 

$61 

MERKEPKT ;merke (x-l,y) 
$B764 

PYMERK 

$61 

$B7C7 

$61 

PYMERK 

$B7BA 

$B7BD 

#$0A 

HILFFLl 
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B7B8 

E6 

61 


INC 

$61 


B7BA 

4C 

24 

B9 

OMP 

$B924 


B7BD 

A9 

05 


LDA 

#$05 


B7BF 

8D 

2B 

C5 

STA 

HILFFLl 


B7C2 

C6 

61 


DEC 

$61 


B7C4 

4C 

24 

B9 

OMP 

$B924 


Punkt 

vorr 

1 Punkt- 

Stapel holen und bearbeiten 

B7C7 

A6 

65 


LDX 

$65 

;Stapelzeiger 

B7C9 

FO 

20 


BEQ 

$B7EB 

(•Stapel leer ? 

B7CB 

CA 



DEX 



B7CC 

86 

65 


STX 

$65 

(Stapelz. = Stapelz. - 1 

B7CE 

BD 

51 

C7 

LDA 

PXHTAB,X 

;x,y = Werte aus Stapel 

B7D1 

85 

60 


STA 

$60 


B7D3 

BD 

50 

C8 

LDA 

PXLTAB,X 


B7D6 

85 

5F 


STA 

$5F 


B7D8 

BD 

4F 

C9 

LDA 

PYTAB,X 


B7DB 

85 

61 


STA 

$61 


B7DD 

A6 

5F 


LDX 

$5F 


B7DF 

A5 

60 


LDA 

$60 


B7E1 

A4 

61 


LDY 

$61 


B7E3 

20 

BA 

B9 

OSR 

TESTFREI 

;test(x,y) 

B7E6 

DO 

DF 


BNE 

$B7C7 

;Pkt. ges., dann naechsten 

B7E8 

40 

24 

B9 

OMP 

$B924 

(•Punkt weiter bearbeiten 

B7EB 

AD 

AC 

C5 

LDA 

AY 

; ■Anfangswert Y' 

B7EE 

C9 

FF 


CMP 

#$FF 

(kleiner 0 

B7F0 

DO 

03 


BNE 

$B7F5 

(•nein ? 

B7F2 

4C 

2A 

82 

OMP 

ENDSMB 

(•Befehl fertig 

B7F5 

AD 

97 

C5 

LDA 

AX 

;x = AX(AX+1 

B7F8 

85 

5F 


STA 

$5F 


B7FA 

AD 

98 

C5 

LDA 

AX + 1 


B7FD 

85 

60 


STA 

$60 


B7FF 

AD 

AC 

C5 

LDA 

AY 

II 

> 

-< 

B802 

85 

61 


STA 

$61 


B804 

A9 

FF 


LDA 

#$FF 

(•Merker f. Y fertig 

B806 

8D 

AC 

C5 

STA 

AY 

; setzen 

B809 

4C 

24 

B9 

OMP 

$B924 

(•Punkt weiter behandeln 

B80C 

A5 

5D 


LDA 

$5D 


B80E 

FO 

IB 


BEQ 

$B82B 


B810 

A5 

59 


LDA 

$59 


B812 

DO 

2A 


BNE 

$B83E 


B814 

A5 

62 


LDA 

$62 

;fertig-Flag 

B816 

DO 

26 


BNE 

$B83E 


B818 

18 



CLC 



B819 

A5 

5F 


LDA 

$5F 


B81B 

69 

01 


ADC 

#$01 
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B81D 

AA 



TAX 



B81E 

A5 

60 


EDA 

$60 


B820 

69 

00 


ADO 

#$00 


B822 

A4 

61 


LDY 

$61 


B824 

88 



DEY 



B825 

20 

D7 

B9 

OSR 

MERKEPKT 

,-merke (x+l,y-l) 

B828 

4C 

3E 

B8 

OMP 

$B83E 

B82B 

A5 

59 


EDA 

$59 


B82D 

FO 

OF 


BEQ 

$B83E 


B82F 

18 



CEC 



B830 

A5 

5F 


EDA 

$5F 


B832 

69 

01 


ADC 

#$01 


B834 

AA 



TAX 



B835 

A5 

60 


EDA 

$60 


B837 

69 

00 


ADC 

#$00 


B839 

A4 

61 


EDY 

$61 


B83B 

20 

D7 

B9 

JSR 

MERKEPKT 

,-merke (x+l,y) 

B83E 

A5 

62 


EDA 

$62 

;fertig-F1ag 

B840 

FO 

IB 


BEQ 

$B85D 

B842 

A5 

59 


EDA 

$59 


B844 

DO 

32 


BNE 

$B878 


B846 

A5 

5D 


EDA 

$5D 


B848 

FO 

2E 


BEQ 

$B878 


B84A 

18 



CEC 



B84B 

A5 

5F 


EDA 

$5F 


B84D 

69 

01 


ADC 

#$01 


B84F 

AA 



TAX 



B850 

A5 

60 


EDA 

$60 


B852 

69 

00 


ADC 

#$00 


B854 

A4 

61 


EDY 

$61 


B856 

C8 



INY 



B857 

20 

D7 

B9 

OSR 

MERKEPKT 

,-merke (x+l,y+l) 

B85A 

40 

78 

B8 

OMP 

$B878 

B85D 

A5 

5E 


EDA 

$5E 


B85F 

FO 

IB 


BEQ 

$B87C 


B861 

A5 

5A 


EDA 

$5A 


B863 

DO 

2A 


BNE 

$B88F 


B865 

38 



SEC 



B866 

A5 

5F 


EDA 

$5F 


B868 

E9 

01 


SBC 

#$01 


B86A 

AA 



TAX 



B86B 

A5 

60 


EDA 

$60 


B86D 

E9 

00 


SBC 

#$00 


B86F 

A4 

61 


EDY 

$61 


B871 

88 



DEY 
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B872 

B875 

B878 

B87A 

B87C 

B87E 

B880 

B881 

B883 

B885 

B886 

B888 

B88A 

B88C 

B88F 

B891 

B893 

B895 

B897 

B899 

B89B 

B89D 

B89F 

B8A1 

B8A2 

B8A4 

B8A6 

B8A7 

B8A9 

B8AB 

B8AD 

B8AE 

B8B1 

B8B3 

B8B5 

B8B7 

B8B9 

B8BB 

B8BD 

B8C0 

B8C3 

B8C5 

B8C8 

B8CA 

B8CC 

B8CF 


20 

D7 

B9 

OSR 

MERKEPKT 

40 

8F 

B8 

OMP 

$B88F 

A5 

5E 


LDA 

$5E 

DO 

13 


BNE 

$B88F 

A5 

5A 


LDA 

$5A 

FO 

OF 


BEQ 

$B88F 

38 



SEO 


A5 

5F 


LDA 

$5F 

E9 

01 


SBO 

#$01 

AA 



TAX 


A5 

60 


LDA 

$60 

E9 

00 


SBO 

#$00 

A4 

61 


LDY 

$61 

20 

D7 

B9 

OSR 

MERKEPKT 

A5 

5E 


LDA 

$5E 

05 

5A 


OMP 

$5A 

FO 

10 


BEQ 

$B8B1 

A5 

5E 


LDA 

$5E 

FO 

18 


BEQ 

$B8B1 

A5 

5A 


LDA 

$5A 

DO 

14 


BNE 

$B8B1 

A5 

62 


LDA 

$62 

FO 

10 


BEQ 

$B8B1 

38 



SEO 


A5 

5F 


LDA 

$5F 

E9 

01 


SBO 

#$01 

AA 



TAX 


A5 

60 


LDA 

$60 

E9 

00 


SBO 

#$00 

A4 

61 


LDY 

$61 

08 



INY 


20 

D7 

B9 

QSR 

MERKEPKT 

A5 

5F 


LDA 

$5F 

85 

09 


STA 

$09 

A5 

60 


LDA 

$60 

85 

OA 


STA 

$0A 

A5 

61 


LDA 

$61 

85 

A4 


STA 

$A4 

AD 

2B 

05 

LDA 

HILFFLl 

8D 

20 

05 

STA 

HILFFLAG 

A9 

00 


LDA 

#$00 

8D 

2B 

05 

STA 

HILFFLl 

A5 

66 


LDA 

$66 

85 

F7 


STA 

$F7 

20 

97 

92 

OSR 

PUNKT 

AD 

51 

OA 

LDA 

PAKTY 


;merke (x-l,y-l) 


,-merke (x-l,y) 


;fertig-Flag 


;merke (x-l,y+l) 

;x,y nach $09,$0A und $A4 


; So 1Ifarbe 
(•Punkt setzen 
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B8D2 

8D 

50 

CA 

STA 

PYALT 


B8D5 

A5 

61 


LDA 

$61 


B8D7 

8D 

51 

CA 

STA 

PAKTY 


B8DA 

4C 

68 

B6 

OMP 

$B668 


B8DD 

A5 

5C 


LDA 

$5C 


B8DF 

C5 

58 


CMP 

$58 


B8E1 

DO 

07 


BNE 

$B8EA 


B8E3 

A9 

00 


LDA 

#$00 


B8E5 

85 

64 


STA 

$64 


B8E7 

4C 

F9 

B6 

OMP 

$B6F9 


B8EA 

A5 

61 


LDA 

$61 


B8EC 

CD 

51 

CA 

CMP 

PAKTY 


B8EF 

DO 

04 


BNE 

$B8F5 


B8F1 

A5 

64 


LDA 

$64 


B8F3 

FO 

07 


BEQ 

$B8FC 


B8F5 

A9 

00 


LDA 

#$00 


B8F7 

85 

64 


STA 

$64 


B8F9 

4C 

IF 

B7 

OMP 

$B71F 


B8FC 

A5 

60 


LDA 

$60 

;Punkt setzen bei (x,y) 

B8FE 

85 

OA 


STA 

$0A 


B900 

A5 

5F 


LDA 

$5F 


B902 

85 

09 


STA 

$09 


B904 

A5 

61 


LDA 

$61 


B906 

85 

A4 


STA 

SA4 


B908 

A5 

6A 


LDA 

$6A 


B90A 

85 

F7 


STA 

$F7 


B90C 

20 

97 

92 

OSR 

PUNKT 


B90F 

C6 

61 


DEC 

$61 

;y = y - 1 

B911 

A9 

OA 


LDA 

#SOA 


B913 

85 

64 


STA 

$64 


B915 

E6 

61 


INC 

$61 

;y = y + 1 

B917 

A5 

60 


LDA 

$60 


B919 

A6 

5F 


LDX 

$5F 


B91B 

A4 

61 


LDY 

$61 


B91D 

20 

BA 

B9 

OSR 

TESTFREI 

;test(x,y) 

B920 

FO 

F3 


BEQ 

$B915 

;frei ?, dann Schleife 

B922 

C6 

61 


DEC 

$61 

;y = y - 1 

B924 

A5 

61 


LDA 

$61 


B926 

8D 

4F 

CA 

STA 

PYMERK 

;y merken 

B929 

A5 

60 


LDA 

$60 


B92B 

A6 

5F 


LDX 

$5F 


B92D 

A4 

61 


LDY 

$61 


B92F 

88 



DEY 



B930 

20 

BA 

B9 

OSR 

TESTFREI 

;test(x,y-l) 

B933 

49 

01 


EOR 

#$01 

; invertieren 

B935 

85 

5B 


STA 

$5B 

;$5B = 1 - test(x,y-l) 
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B937 

A5 

60 


LDA 

$60 

B939 

A6 

5F 


LDX 

$5F 

B93B 

A4 

61 


LDY 

$61 

B93D 

C8 



INY 


B93E 

20 

BA 

B9 

OSR 

TESTFREI 

B941 

49 

01 


EOR 

#$01 

B943 

85 

5C 


STA 

$5C ;$5C = 1 - test(x,y+l) 

B945 

18 



CLC 


B946 

A5 

5F 


LDA 

$5F 

B948 

69 

01 


ADC 

#$01 

B94A 

AA 



TAX 


B94B 

A5 

60 


LDA 

$60 

B94D 

69 

00 


ADC 

#$00 

B94F 

A4 

61 


LDY 

$61 

B951 

20 

BA 

B9 

OSR 

TESTFREI 

B954 

49 

01 


EOR 

#$01 

B956 

85 

5D 


STA 

$5D ;$5D = 1 - test(x+l,y) 

B958 

38 



SEC 


B959 

A5 

5F 


LDA 

$5F 

B95B 

E9 

01 


SBC 

#$01 

B95D 

AA 



TAX 


B95E 

A5 

60 


LDA 

$60 

B960 

E9 

00 


SBC 

#$00 

B962 

A4 

61 


LDY 

$61 

B964 

20 

BA 

B9 

OSR 

TESTFREI 

B967 

49 

01 


EOR 

#$01 

B969 

85 

5E 


STA 

$5E ;$5E = 1 - test(x-l,y) 

B96B 

4C 

Bl 

B8 

OMP 

$B8B1 

TABSAUBER; 





B96E 

A5 

65 


LDA 

$65 ;StapeIzeiger 

B970 

C9 

14 


CMP 

#$14 

B972 

BO 

01 


BCS 

TABSAUBERl ;groesser= 20 ? 

B974 

60 



RTS 

;sonst fertig 

TABSAUBERl: 




B975 

A9 

00 


LDA 

#$00 

B977 

80 

4E 

CA 

STA 

PZEIG ,-Zeiger in Punktstapel 

B97A 

AE 

4E 

CA 

LDX 

PZEIG 

B97D 

BO 

4F 

C9 

LDA 

PYTAB,X 

B980 

A8 



TAY 


B981 

BD 

50 

C8 

LDA 

PXLTAB,X 

B984 

85 

AA 


STA 

$AA 

B986 

BD 

51 

C7 

LDA 

PXHTAB,X 

B989 

A6 

AA 


LDX 

$AA 

B98B 

20 

BA 

B9 

OSR 

TESTFREI ;test(PZEIG) 

B98E 

FO 

IF 


BEQ 

$B9AF ;frei, dann weiter 

B990 

AE 

4E 

CA 

LDX 

PZEIG ;Wert (PZEIG) aus Stapel 

B993 

BD 

51 

C8 

LDA 

PXLTAB+1,X (-entfernen 

B996 

9D 

50 

C8 

STA 

PXLTAB,X 
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B999 

BD 

52 

07 

LDA 

PXHTAB+1,X 

B99C 

9D 

51 

07 

STA 

PXHTAB,! 

< 

B99F 

BD 

50 

09 

LDA 

PYTAB+1 

,x 

B9A2 

9D 

4F 

09 

STA 

PYTAB,X 


B9A5 

E8 



INX 



B9A6 

E4 

65 


OPX 

$65 

,-Zeiger auf Tabellenende 

B9A8 

DO 

E9 


BNE 

$B993 

;nicht erreicht ? 

B9AA 

C6 

65 


DEO 

$65 

(Tabelle um 1 verkleinern 

B9AC 

4C 

B2 

B9 

OMP 

$B9B2 

(•weiter 

B9AF 

EE 

4E 

OA 

INO 

PZEIG 

(•naechsten Eintrag anpeilen 

B9B2 

AD 

4E 

OA 

LDA 

PZEIG 

B9B5 

C5 

65 


OMP 

$65 


B9B7 

DO 

01 


BNE 

$B97A 

(Tabelle nicht fertig ? 

B9B9 

60 



RTS 


(■Ende von TABSAUBER 

TESTFREI: 






B9BA 

86 

09 


STX 

$09 

;X-Koord. in X-Reg. und Akku 

B9BC 

85 

OA 


STA 

$0A 

B9BE 

84 

A4 


STY 

$A4 

;Y-Koord. in Y-Reg. 

B9C0 

A9 

OB 


LDA 

#$0B 

B9C2 

85 

F7 


STA 

$F7 

(•Punktfarbe 11 (TEST) 

B9C4 

20 

97 

92 

OSR 

PUNKT 

(Punkt testen 

B9C7 

A5 

90 


LDA 

$90 

(•Ergebnis 

B9C9 

05 

6A 


OMP 

$6A 

(■Farbe des letzten Nachbarn 

B9CB 

FO 

05 


BEQ 

$B9D2 

(•Punkt frei ? 

B9CD 

A9 

01 


LDA 

#$01 

(■Ergebnis = 1 (besetzt) 

B9CF 

85 

90 


STA 

$90 


B9D1 

60 



RTS 



B9D2 

A9 

00 


LDA 

#$00 

(•Ergebnis = 0 (frei) 

B9D4 

85 

90 


STA 

$90 

B9D6 

60 



RTS 



MERKEPKT: 






B9D7 

86 

AE 


STX 

$AE 

(•Koordinaten merken 

B9D9 

85 

AF 


STA 

$AF 


B9DB 

84 

A6 


STY 

$A6 


B9DD 

A6 

65 


LDX 

$65 

(•Zeiger auf Tabellenende 

B9DF 

A5 

A6 


LDA 

$A6 

B9E1 

9D 

4F 

09 

STA 

PYTAB,X 

;Y eintragen 

B9E4 

A5 

AE 


LDA 

$AE 

B9E6 

9D 

50 

08 

STA 

PXLTAB, 

X ;X eintragen 

B9E9 

A5 

AF 


LDA 

$AF 

B9EB 

9D 

51 

07 

STA 

PXHTAB, 

X 

B9EE 

E6 

65 


INO 

$65 

(■Tabelle um 1 erweitern 

B9F0 

60 



RTS 



BEFCOPY: 






B9F1 

20 

DB 

83 

OSR 

INGBASBZ ;Gode ueberlesen 

B9F4 

AD 

2D 

05 

LDA 

XMAXLOW 
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B9F7 

48 



PHA 


B9F8 

AD 

2E 

C5 

LDA 

XMAXHIGH 

B9FB 

48 



PHA 


B9FC 

A9 

01 


LDA 

#Soi 

B9FE 

8D 

2E 

05 

STA 

XMAXHIGH 

BAOl 

A9 

3F 


LDA 

#$3F 

BA03 

8D 

2D 

C5 

STA 

XMAXLOW 

BA06 

20 

CG 

FF 

asR 

OL ROH 

BA09 

A9 

01 


LDA 

#$01 

BAOB 

20 

03 

FF 

OSR 

CLOSE 

BAOE 

20 

CC 

FF 

OSR 

CLRCH 

BAU 

AD 

BO 

05 

LDA 

MULTION 

BA14 

48 



PHA 


BA15 

A9 

00 


LDA 

#$00 

BA17 

8D 

BO 

05 

STA 

MULTION 

BAIA 

A2 

04 


LDX 

#$04 

BAIC 

A9 

01 


LDA 

#$01 

BAIE 

AO 

FF 


LDY 

#$FF 

BA20 

20 

BA 

FF 

3SR 

SETFPAR 

BA23 

20 

CO 

FF 

3SR 

OPEN 

BA26 

A2 

01 


LDX 

#$01 

BA28 

20 

C9 

FF 

3SR 

CHKOUT 

BA2B 

A9 

OD 


LDA 

#$0D 

BA2D 

20 

D2 

FF 

OSR 

BSOUT 

BA30 

A9 

08 


LDA 

#$08 

BA32 

20 

D2 

FF 

OSR 

BSOUT 

BA35 

A9 

00 


LDA 

#$00 

BA37 

85 

5F 


STA 

$5F 

BA39 

85 

61 


STA 

$61 

BA3B 

85 

60 


STA 

$60 

BA3D 

A9 

00 


LDA 

#$00 

BA3F 

8D 

4E 

CA 

STA 

PZEIG 

BA42 

A9 

00 


LDA 

#$00 

BvA44 

8D 

E2 

05 

STA 

COPBYTE 

BÄ47 

A9 

00 


LDA 

#$00 

BA49 

8D 

E6 

05 

STA 

COPZAEY 

BA4C 

18 



CLO 


BA4D 

A5 

5F 


LDA 

$5F 

BA4F 

6D 

4E 

CA 

ADO 

PZEIG 

BA52 

85 

09 


STA 

$09 

BA54 

A5 

60 


LDA 

$60 

BA56 

69 

00 


ADO 

#$00 

BA58 

85 

OA 


STA 

$0A 

BA5A 

18 



CLO 


BA5B 

A5 

61 


LDA 

$61 

BA5D 

6D 

E6 

05 

ADO 

COPZAEY 

BA60 

85 

A4 


STA 

$A4 

BA62 

A9 

OB 


LDA 

#$0B 

BA64 

85 

F7 


STA 

$F7 

BA66 

20 

97 

92 

JSR 

PUNKT 


;X-Grenzen auf Stack 


;X-Grenze auf 319 


;Kanaele schliessen 

,-Datei #1 schliessen 
;Kanaele schliessen 
,-Multi-Flag 
;auf Stack 

,-Multi-Modus = 0 
;Geraetenr. 4 
(-Datei #1 

(-keine Sekundaeradr. 
(-Fileparameter setzen 
(Datei oeffnen 

(-Datei #1 als Ausgabekan. 

(-Zeilenvorschub ausgeben 

(-Code 8 ausgeben 

(-akt. Koordinaten 


(-Zaehler bis 6 fuer X 
(- Samme Iby te 
(Zaehler bis 7 fuer Y 


(-$09($0A = $5F($60 + PZEIG 


,-$A4 = $61 + COPZAEY 


(-Punktfarbe 11 (TEST) 
(-Punkt abfragen 
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BA69 

20 

OE 

94 

JSR 

KERROMEIN 

;KERNAL einschalten 

BA6C 

A5 

90 


LDA 

$90 

;Testergebnis 

BA6E 

FO 

10 


BEQ 

$BA80 

,-Punkt frei ? 

BA70 

C9 

08 


OMP 

#$08 

,-Merker f. illegale Koord. 

BA72 

FO 

00 


BEQ 

$BA80 

;Punktkoord. illegal ? 

BA74 

AD 

E2 

05 

LDA 

OOPBYTE 

;Sammelbyte 

BA77 

AC 

E6 

05 

LDY 

OOPZAEY 

;Zaehler in Y-Richtung 

BA7A 

19 

78 

97 

ORA 

MBITTABS, 

Y ;entspr. Bit setzen 

BA7D 

8D 

E2 

05 

STA 

OOPBYTE 

/Byte wieder speichern 

BA80 

EE 

E6 

05 

INO 

OOPZAEY 

;Y-Zaeh1er erh. 

BA83 

AD 

E6 

05 

LDA 

OOPZAEY 


BA86 

09 

07 


OMP 

#$07 

;7 Hires-Zeilen 

BA88 

DO 

02 


BNE 

$BA40 

/nicht abgel., dann Schl. 

BA8A 

AD 

E2 

05 

LDA 

OOPBYTE 

/Sammelbyte 

BA8D 

09 

80 


ORA 

#$80 

/Bit 7 setzen 

BA8F 

20 

D2 

FF 

JSR 

BSOUT 

/und ausgeben 

BA92 

EE 

4E 

OA 

INO 

PZEIG 

/Zaehler f. X erh. 

BA95 

AD 

4E 

OA 

LDA 

PZEIG 


BA98 

09 

06 


OMP 

#$06 

/6 Hires-SpaIten 

BA9A 

FO 

03 


BEQ 

$BA9F 

/I Druckzeichen fertig ? 

BA9C 

40 

42 

BA 

JMP 

$BA42 

/nein, dann Schleife 

BA9F 

18 



OLO 



BAAO 

A5 

5F 


LDA 

$5F 

/X um 6 erhoehen 

BAA2 

69 

06 


ADO 

#$06 


BAA4 

85 

5F 


STA 

$5F 


BAA6 

A5 

60 


LDA 

$60 


BAA8 

69 

00 


ADO 

#$00 


BAAA 

85 

60 


STA 

$60 


BAAC 

A5 

5F 


LDA 

$5F 


BAAE 

09 

44 


OMP 

#$44 


BABO 

DO 

06 


BNE 

$BAB8 


BAB2 

A5 

60 


LDA 

$60 


BAB4 

09 

01 


OMP 

#$01 


BAB6 

FO 

03 


BEQ 

$BABB 


BAB8 

40 

3D 

BA 

JMP 

$BA3D 

/Schleife, bis x = 324 

BABB 

A9 

OD 


LDA 

#$0D 


BABD 

20 

D2 

FF 

JSR 

BSOUT 

/Zeilenvorschub ausgeben 

BACO 

18 



OLO 



BACl 

A5 

61 


LDA 

$61 

,-y um 7 erhoehen 

BAC3 

69 

07 


ADO 

#$07 


BAC5 

85 

61 


STA 

$61 


BAC7 

A9 

00 


LDA 

#$00 

o 

II 

X 

BAC9 

85 

5F 


STA 

$5F 


BACB 

85 

60 


STA 

$60 


BACD 

A5 

61 


LDA 

$61 


BACF 

09 

D2 


OMP 

#$D2 

,-194 Hires-Zeilen 

BADl 

90 

E5 


BOO 

$BAB8 

/Schleife, bis y gr.= 194 
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BAD3 

A9 

OD 


LDA 

#$0D 

;Zeilenvorschub 

BADS 

20 

D2 

FF 

OSR 

BSOUT 

;ausgeben 

BADS 

A9 

OF 


LDA 

#$0F 

;Code 15 

BADA 

20 

D2 

FF 

3SR 

BSOUT 

; ausgeben 

BADD 

20 

CC 

FF 

3SR 

CLRCH 

;Kanaele schliessen 

BAEO 

A9 

01 


LDA 

#$01 


BAE2 

20 

C3 

FF 

3SR 

CLOSE 

(•Datei #1 schliessen 

BAE5 

20 

CC 

FF 

3 SR 

CLRCH 

;Kanaele schliessen 

BAE8 

68 



PLA 



BAE9 

8D 

BO 

C5 

STA 

MULTION 

;Multi-Flag restaurieren 

BAEC 

68 



PLA 


BAED 

8D 

2E 

C5 

STA 

XMAXHIGH 

;X-Grenzen restaurieren 

BAFO 

68 



PLA 



BAFl 

8D 

2D 

C5 

STA 

XMAXLOW 


BAF4 

4C 

2A 

82 

3MP 

ENDSMB 

;Befehl fertig 

BEFREC 







BAF7 

EA 



NOP 


(???) 

BAF8 

20 

59 

93 

3SR 

GETXYXYF 

;5 Parameter holen 

BAFB 

AD 

A8 

C5 

LDA 

EY ;EY;EX;EX+1 nach $61;$5F,$60 

BAFE 

85 

61 


STA 

$61 ;(Seiten-Laengen S.L.X,S.L.Y 

BBOO 

AD 

AA 

C5 

LDA 

EX 


BB03 

85 

5F 


STA 

$5F 


BB05 

AD 

AB 

C5 

LDA 

EX + 1 


BB08 

85 

60 


STA 

$60 


BBOA 

A9 

00 


LDA 

#$00 


BBOC 

8D 

A9 

C5 

STA 

EY+1 

;High-Byte von EY auf 0 

BBOF 

18 



CLC 



BBIO 

AD 

97 

C5 

LDA 

AX 

; EX,EX + 1 = AX,AX + 1 + S.L.X 

BB13 

65 

5F 


ADC 

$5F 

BB15 

8D 

AA 

C5 

STA 

EX 


BB18 

AD 

98 

C5 

LDA 

AX + 1 


BBIB 

65 

60 


ADC 

$60 


BBID 

8D 

AB 

C5 

STA 

EX + 1 


BB20 

AD 

AC 

C5 

LDA 

AY 


BB23 

8D 

A8 

C5 

STA 

EY 

;EY = AY 

BB26 

20 

5E 

A3 

3SR 

LINZEI 

(•obere Linie zeichnen 

BB29 

18 



CLC 



BB2A 

AD 

A8 

C5 

LDA 

EY 

;AY = EY 

BB2D 

8D 

AC 

C5 

STA 

AY 


BB3Ü 

65 

61 


ADC 

$61 


BB32 

8D 

A8 

C5 

STA 

EY 

;EY = AY + S.L.Y 

BB35 

AD 

AA 

C5 

LDA 

EX 


BB38 

8D 

97 

C5 

STA 

AX 

;AX,AX+1 = EX,EX+1 

BB3B 

AD 

AB 

C5 

LDA 

EX + 1 


BB3E 

8D 

98 

C5 

STA 

AX+1 


BB41 

20 

5E 

A3 

3SR 

LINZEI 

(•rechte Linie zeichnen 
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BB44 

38 



SEO 


BB45 

AB 

97 

05 

LDA 

AX 

BB48 

E5 

5F 


SBO 

$5F 

BB4A 

8D 

AA 

05 

STA 

EX 

BB4D 

AD 

98 

05 

LDA 

AX + 1 

BB50 

E5 

60 


SBO 

$60 

BB52 

8D 

AB 

05 

STA 

EX + 1 

BB55 

AD 

A8 

05 

LDA 

EY 

BB58 

8D 

AC 

05 

STA 

AY 

BB5B 

20 

5E 

A3 

3SR 

LINZEI 

BB5E 

38 



SEO 


BB5F 

AD 

A8 

05 

LDA 

EY 

BB62 

E5 

61 


SBO 

$61 

BB64 

8D 

A8 

05 

STA 

EY 

BB67 

AD 

AA 

05 

LDA 

EX 

BB6A 

8D 

97 

05 

STA 

AX 

BB6D 

AD 

AB 

05 

LDA 

EX + 1 

BB70 

8D 

98 

05 

STA 

AX + 1 

BB73 

20 

5E 

A3 

3SR 

LINZEI 

BB76 

40 

2A 

82 

3 MP 

ENDSMB 

BB79 

AD 

AA 

05 

LDA 

EX 

BB7C 

09 

9F 


OMP 

#$9F 

BB7E 

90 

05 


BOO 

$BB85 

BB80 

A9 

9F 


LDA 

#$9F 

BB82 

8D 

AA 

05 

STA 

EX 

BB85 

AD 

A8 

05 

LDA 

EY 

BB88 

09 

07 


OMP 

#$07 

BB8A 

90 

05 


BOO 

$BB91 

BB8C 

A9 

07 


LDA 

#$07 

BB8E 

8D 

A8 

05 

STA 

EY 

BB91 

A5 

09 


LDA 

$09 

BB93 

85 

6F 


STA 

$6F 

BB95 

29 

03 


AND 

#$03 

BB97 

OA 



ASL 

A 

BB98 

AA 



TAX 


BB99 

40 

Bl 

BB 

OMP 

$BBB1 

BB9C 

A5 

09 


LDA 

$09 

BB9E 

29 

03 


AND 

#$03 

BBAO 

OA 



ASL 

A 

BBAl 

AA 



TAX 


BBA2 

DO 

OD 


BNE 

$BBB1 

BBA4 

18 



OLO 


BBA5 

A5 

A8 


LDA 

$A8 

BBA7 

69 

08 


ADO 

#$08 

BBA9 

85 

A8 


STA 

$A8 

BBAB 

A5 

A9 


LDA 

$A9 

BBAD 

69 

00 


ADO 

#$00 

BBAF 

85 

A9 


STA 

$A9 


;EX,EX+1 = AX,AX+1 - S.L.X 

;AY = EY 

(•untere Linie zeichnen 
;EY = EY - S.L.Y 
;AX,AX+1 = EX,EX+1 

(•linke Linie zeichnen 
(•Befehl fertig 

(•Block zeichnen Multi-C. 

;EX kleiner 159 ? 

(•sonst EX = 159 

;EY kleiner 199 ? 

(•sonst EY = 199 

;$6F = $09 

;X = 2 * (xk mod 4) 

;X-Koordinate 

;X = 2 * (xk mod 4) 

;X ungleich 0 ? 

;$A8,$A9 = $A8($A9 + 8 
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BBBl 

A5 

A4 


LDA 

$A4 ;Y 

-Koord. 

BBB3 

29 

07 


AND 

#S07 


BBB5 

A8 



TAY 

;(YK. and 7) nach Y 

BBB6 

A5 

F7 


LDA 

$F7 ;Punktfarbe 

BBB8 

C9 

02 


CMP 

#$02 


BBBA 

DO 

15 


BNE 

$BBD1 ;nicht 2 ? 

BBBC 

20 

06 

94 

OSR 

KERROMAUS ; 

Kernal aus 

BBBF 

Bl 

A8 


LDA 

($A8),Y 


BBCl 

10 

30 

93 

ORA 

GBITTABS,X 

;l.Bit setzen 

BBC4 

91 

A8 


STA 

($A8) ,Y 


BBC6 

E8 



INX 



BBC7 

Bl 

A8 


LDA 

($A8),Y 


BBC9 

3D 

40 

93 

AND 

GBITTABL,X 

;2.Bit loeschen 

BBCC 

91 

A8 


STA 

($A8),Y 


BBCE 

4C 

2E 

BC 

JMP 

$BC2E 


BBDl 

C9 

00 


CMP 

#$00 


BBD3 

DO 

15 


BNE 

$BBEA 

;Punktfarbe nicht 0 

BBD5 

20 

06 

94 

OSR 

KERROMAUS 


BBD8 

Bl 

A8 


LDA 

($A8),Y 


BBDA 

3D 

40 

93 

AND 

GBITTABL,X 

;l.Bit loeschen 

BBDD 

91 

A8 


STA 

($A8),Y 

BBBF 

E8 



INX 



BBEO 

Bl 

A8 


LDA 

($A8),Y 


BBE2 

3D 

40 

93 

AND 

GBITTABL,X 

;2.Bit loeschen 

BBE5 

91 

A8 


STA 

($A8) ,Y 


BBE7 

4C 

2E 

BC 

JMP 

$BC2E 


BBEA 

C9 

01 


CMP 

#$01 


BBEC 

DO 

15 


BNE 

$BC03 

;Punktfarbe nicht 1 

BBEE 

20 

06 

94 

JSR 

KERROMAUS 


BBFl 

Bl 

A8 


LDA 

($A8),Y 


BBF3 

3D 

40 

93 

AND 

GBITTABL,X 

;l.Bit loeschen 

BBF6 

91 

A8 


STA 

($A8),Y 


BBF8 

E8 



INX 



BBF9 

Bl 

A8 


LDA 

($A8),Y 


BBFB 

ID 

30 

93 

ORA 

GBITTABS,X 

;2.Bit setzen 

BBFE 

91 

A8 


STA 

($A8) ,Y 


BCOO 

4C 

2E 

BC 

JMP 

$BC2E 


BC03 

C9 

04 


CMP 

#$04 


BC05 

FO 

15 


BEQ 

$BC1C 

;PunktFarbe = 4 ? 

BC07 

20 

06 

94 

JSR 

KERROMAUS 


BCOA 

Bl 

A8 


LDA 

($A8) ,Y 


BCOC 

ID 

30 

93 

ORA 

GBITTABS,X 

;l.Bit setzen 

BCOF 

91 

A8 


STA 

($A8) ,Y 


BCll 

E8 



INX 



BC12 

Bl 

A8 


LDA 

($A8),Y 


BC14 

ID 

30 

93 

ORA 

GBITTABS,X 

;2.Bit setzen 

BC17 

91 

A8 


STA 

($A8),Y 
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BC19 

4C 

2E 

BC 

3MP 

$BC2E 


BCIC 

20 

06 

94 

3,SR 

KERROMAUS 

BCIF 

Bl 

A8 


EDA 

($A8),Y 


BC21 

5D 

30 

93 

EOR 

GBITTABS, 

X ;1. Bit invertieren 

BC24 

91 

A8 


STA 

($A8),Y 


BC26 

E8 



INX 



BC27 

Bl 

A8 


EDA 

($A8),Y 


BC29 

5D 

30 

93 

EOR 

GBITFABS, 

X ;2. Bit invertieren 

BC2C 

91 

A8 


STA 

($A8),Y 


BC2E 

E6 

09 


INC 

$09 

;X erhoehen 

BC30 

A5 

09 


EDA 

$09 


BC32 

C9 

AO 


CMP 

#$A0 


BC34 

BO 

07 


BCS 

$BC3D 

;X groesser gleich 160 ? 

BC36 

CD 

AA 

C5 

CMP 

EX 

BC39 

90 

30 


BCC 

$BC6B 

;X kleiner EX ? 

BC3B 

FO 

2E 


BEQ 

$BC6B 

;X gleich EX ? 

BC3D 

E6 

A4 


INC 

$A4 

;Y erhoehen 

BC3F 

A5 

A4 


EDA 

$A4 


BC41 

29 

07 


AND 

#$07 


BC43 

DO 

OD 


BNE 

$BC52 

;(Y mod 8) ungleich 0 ? 

BC45 

18 



CEC 


BC46 

A5 

AA 


EDA 

$AA 

;$AA,$AB = $AA,$AB + 320 

BC48 

69 

40 


ADC 

#$40 


BC4A 

85 

AA 


STA 

$AA 


BC4C 

A5 

AB 


EDA 

$AB 


BC4E 

69 

01 


ADC 

#$01 


BC50 

85 

AB 


STA 

$AB 


BC52 

A5 

AA 


EDA 

$AA 

;$A8,$A9 = $AA,$AB 

BC54 

85 

A8 


STA 

$A8 


BC56 

A5 

AB 


EDA 

$AB 


BC58 

85 

A9 


STA 

$A9 


BC5A 

A5 

6F 


EDA 

$6F 

;$09 = $6F 

BC5C 

85 

09 


STA 

$09 


BC5E 

A5 

A4 


EDA 

$A4 

; Y-Koord. 

BC60 

CD 

A8 

C5 

CMP 

EY 


BC63 

FO 

03 


BEQ 

$BC68 

;YK gleich EY ? 

BC65 

90 

01 


BCC 

$BC68 

;YK kleiner EY ? 

BC67 

60 



RTS 


(•fertig mit Block 

BC68 

4C 

79 

BB 

JMP 

$BB79 

;zur (aeusseren) Schleife 

BC6B 

4C 

9C 

BB 

JMP 

$BB9C 

;zur (inneren) Schleife 

BEFBLOCK: 






BC6E 

20 

59 

93 

OSR 

GETXYXYF 

;AX,AY,EX,EY und Pktf. 

BC71 

20 

77 

BC 

OSR 

BEOCKZEI 

(•Block zeichnen 

BC74 

4C 

2A 

82 

3MP 

ENDSMB 

(•Befehl fertig 
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BLOCKZEI: 


BC77 

20 

06 

94 

3SR 

KERROMAUS ;Kernal aus 

BC7A 

AE 

AO 

05 

LDX 

AY 

;AX mit AY vertauschen 

BC7D 

AD 

97 

05 

LDA 

AX 


BC80 

8D 

AO 

05 

STA 

AY 


BC83 

8E 

97 

05 

STX 

AX 


BC86 

AE 

AD 

05 

LDX 

AY+1 


BC89 

AD 

98 

05 

LDA 

AX + 1 


BC8C 

8D 

AD 

05 

STA 

AY + 1 


BC8F 

8E 

98 

05 

STX 

AX + 1 


BC92 

AD 

AD 

05 

LDA 

AY+1 

(•Anfangswerte als akt. Koord. 

BC95 

85 

OA 


STA 

$0A 

BC97 

AD 

98 

05 

LDA 

AX+1 


BC9A 

85 

A5 


STA 

$A5 


BC9C 

AD 

AO 

05 

LDA 

AY 


BC9F 

85 

09 


STA 

$09 


BCAl 

AD 

97 

05 

LDA 

AX 


BCA4 

85 

A4 


STA 

$A4 


BCA6 

A9 

FF 


LDA 

#$FF 


BCA8 

8D 

AE 

05 

STA 

GFLAG 

;Flag fuer Pkt. zeichnen j/n 

BCAB 

20 

97 

92 

3 SR 

PUNKT 

(•Koordinaten umrechnen 

BCAE 

A9 

00 


LDA 

#$00 


BCBO 

8D 

AE 

05 

STA 

GFLAG 

(•Flag ruecksetzen 

BCB3 

A5 

90 


LDA 

$90 

(•Status 

BCB5 

09 

08 


OMP 

#$08 


BCB7 

DO 

05 


BNE 

$BGBE 

(•kein illegaler Bereich ? 

(•Nr. f. *bad mode' 

BCB9 

A9 

00 


LDA 

#$00 

BCBB 

40 

80 

88 

OMP 

SERROUT ,-Fehler ausgeben 

BCBE 

38 



SEO 



BCBF 

A5 

A8 


LDA 

$A8 

(•$A8($A9 = $A8($A9 - 99 

BCCl 

E5 

63 


SBO 

$63 


BCC3 

85 

A8 


STA 

$A8 


BCC5 

A5 

A9 


LDA 

$A9 


BCC7 

E9 

00 


SBO 

#$00 


BCC9 

85 

A9 


STA 

$A9 


BCCB 

18 



OLO 



BCCC 

AD 

AO 

05 

LDA 

AY 

(•Anfangswerte als akt. Koord. 

BCCF 

85 

09 


STA 

$09 

BCDl 

AD 

AD 

05 

LDA 

AY + 1 


BCD4 

85 

OA 


STA 

$0A 


BCD6 

AD 

97 

05 

LDA 

AX 


BCD9 

85 

A4 


STA 

$A4 


BCDB 

A5 

A8 


LDA 

$A8 

;$AA($AB = $A8($A9 

BCDD 

85 

AA 


STA 

$AA 


BCDF 

A5 

A9 


LDA 

$A9 


BCEl 

85 

AB 


STA 

$AB 


BCE3 

AD 

BO 

05 

LDA 

MULTION ;Multi-Golour-Flaq 

BCE6 

09 

20 


OMP 

#$20 


BCE8 

DO 

03 


BNE 

$BOED 

(•kein Multi-Oolour ? 

BCEA 

40 

79 

BB 

OMP 

$BB79 

(•zum Multi-0.-Block 
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BCED 

A5 

09 


EDA 

$09 ;$6F,$70 = $09,$0A 

BCEF 

85 

6F 


STA 

$6F 

BCFl 

A5 

OA 


LDA 

$0A 

BCF3 

85 

70 


STA 

$70 

BCF5 

A5 

09 


LDA 

$09 

BCF7 

29 

07 


AND 

#$07 

BCF9 

AA 



TAX 

;X = (xk mod 8) 

BCFA 

4C 

11 

BD 

3 MP 

$BD11 

BCFD 

A5 

09 


LDA 

$09 

BCFF 

29 

07 


AND 

#$07 

BDOl 

AA 



TAX 

;X = (xk mod 8) 

BD02 

DO 

OD 


BNE 

$BD11 

BD04 

18 



OLG 


BD05 

A5 

A8 


LDA 

$A8 ;$A8,$A9 = $A8,$A9 

BD07 

69 

08 


ADO 

#$08 

BD09 

85 

A8 


STA 

$A8 

BDOB 

A5 

A9 


LDA 

$A9 

BDOD 

69 

00 


ADC 

#$00 

BDOF 

85 

A9 


STA 

$A9 

BDll 

A5 

A4 


LDA 

$A4 

BD13 

29 

07 


AND 

#$07 

BD15 

A8 



TAY 

;Y = (yk mod 8) 

BD16 

A5 

F7 


LDA 

$F7 ;Punktfarbe 

BD18 

C9 

02 


CMP 

#$02 

BDIA 

DO 

OD 


BNE 

$BD29 ;nicht 2 ? 

BDIC 

20 

06 

94 

3 SR 

KERROMAUS 

BDIF 

Bl 

A8 


LDA 

($A8),Y 

BD21 

5D 

30 

93 

EOR 

GBITTABS,X ;Bit invertieren 

BD24 

91 

A8 


STA 

($A8) ,Y 

BD26 

40 

44 

BD 

3 MP 

$BD44 

BD29 

09 

00 


CMP 

#$00 

BD2B 

DO 

OD 


BNE 

$BD3A ;Farbe nicht 0 ? 

BD2D 

20 

06 

94 

3SR 

KERROMAUS 

BD30 

Bl 

A8 


LDA 

($A8),Y 

BD32 

3D 

40 

93 

AND 

GBITTABL,X ;Bit loeschen 

BD35 

91 

A8 


STA 

($A8),Y 

BD37 

40 

44 

BD 

3MP 

$BD44 

BD3A 

20 

06 

94 

3SR 

KERROMAUS 

BD3D 

Bl 

A8 


LDA 

($A8),Y 

BD3F 

ID 

30 

93 

ORA 

GBITTABS,X ;Bit setzen 

BD42 

91 

A8 


STA 

($A8),Y 

BD44 

E6 

09 


INC 

$09 ;$09,$0A erhoehen 

BD46 

DO 

02 


BNE 

$BD4A 

BD48 

E6 

OA 


INC 

$0A 

BD4A 

A5 

OA 


LDA 

$0A 
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BD4C 

FO 

09 


BEQ 

$B057 

BD4E 

A5 

09 


LOA 

$09 

BD50 

C9 

40 


CMP 

#$40 

BD52 

90 

03 


BCC 

$B057 

BD54 

4C 

74 

BO 

OMP 

$B074 

BD57 

A5 

OA 


LOA 

$0A 

BD59 

80 

24 

C5 

STA 

VGLA+1 

BD5C 

A5 

09 


LOA 

$09 

BD5E 

80 

23 

C5 

STA 

VGLA 

BD61 

AO 

AA 

C5 

LOA 

EX 

Bl)64 

80 

lA 

C5 

STA 

VGLE 

BD67 

AO 

AB 

C5 

LOA 

EX + 1 

BD6A 

80 

IB 

C5 

STA 

VGLE+1 

BD6D 

20 

16 

A6 

OSR 

VGLAE 

BD70 

FO 

8B 


BEQ 

$BCFO 

BD72 

90 

89 


BCC 

$BCFO 

BD74 

E6 

A4 


INC 

$A4 

BD76 

A5 

A4 


LOA 

$A4 

BD78 

29 

07 


ANO 

#$07 

BD7A 

00 

00 


BNE 

$B089 

BD7C 

18 



CLC 


BD7D 

A5 

AA 


LOA 

$AA 

BD7F 

69 

40 


AOC 

#$40 

BD81 

85 

AA 


STA 

$AA 

BD83 

A5 

AB 


LOA 

$AB 

BD85 

69 

01 


AOC 

#$01 

BD87 

85 

AB 


STA 

$AB 

BD89 

A5 

AA 


LOA 

$AA 

BD8B 

85 

A8 


STA 

$A8 

BD8D 

A5 

AB 


LOA 

$AB 

BD8F 

85 

A9 


STA 

$A9 

BD91 

A5 

6F 


LOA 

$6F 

BD93 

85 

09 


STA 

$09 

BD95 

A5 

70 


LOA 

$70 

BD97 

85 

OA 


STA 

$0A 

BD99 

A5 

A4 


LOA 

$A4 

BD9B 

C9 

C8 


CMP 

#$C8 

BD9D 

BO 

07 


BCS 

$B0A6 

BD9F 

CO 

A8 

C5 

CMP 

EY 

BDA2 

FO 

03 


BEQ 

$B0A7 

BDA4 

90 

01 


BCC 

$B0A7 

BDA6 

60 



RTS 


BDA7 

4C 

EO 

BC 

OMP 

$BCEO 


;xk kleiner 256 ? 


;xk kleiner 320 ? 

(■sonst zu $BD74 
;$09,$0A mit EX,EX+1 vgl. 


; Vergleichsroutine 
(•gleich, dann Schleife 
(•kleiner, dann Schleife 

;yk erhoehen 


;(yk mod 8) ungleich 0 ? 
;$AA,$AB = $AA,$AB + 320 


;$A8,$A9 = $AA,$AB 


;$09,$0A = $6F,$70 


;yk groesser= 200 ? 

;yk gleich EY ? 

;yk kleiner EY ? 

(•Block fertig 

;zur (auesseren) Schleife 
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DSCBMOUTl: 


BDAA 

40 

5A 

9A 

JMP 

DSOBMOUT ;zur Ausgabe von 'ds-cbm' 

BEFMEM; 






BDAD 

A9 

00 


LDA 

#$00 

BDAF 

80 

88 

02 

STA 

VIDRAMHI ;Video-RAM nach $0000 

BDB2 

A9 

93 


LDA 

#$93 

BDB4 

20 

02 

FF 

3SR 

BSOUT ,-Bildschirm loeschen 

BDB7 

A9 

00 


LDA 

#$00 ;$20,$21 auf $D000 

BDB9 

85 

20 


STA 

$20 

BDBB 

A9 

DO 


LDA 

#$D0 

BDBD 

85 

21 


STA 

$21 

BDBF 

78 



SEI 

(Interrupts verhindern 

BDCO 

A5 

01 


LDA 

$01 ; Prozessor-Port 

BDC2 

29 

FB 


AND 

#$FB ;Zeichengenerator lesbar 

BDC4 

85 

01 


STA 

$01 

BDC6 

A9 

00 


LDA 

#$00 ;$A8,$A9 auf $E000 

BDC8 

85 

A8 


STA 

$A8 

BOCA 

A9 

EO 


LDA 

#$E0 

BDCC 

85 

A9 


STA 

$A9 

BDCE 

AO 

00 


LDY 

#$00 

BDDO 

A2 

00 


LDX 

#$00 

BDD2 

Bl 

20 


LDA 

($20),Y ;Byte aus Zeichengen.-ROM 

BDD4 

91 

A8 


STA 

($A8),Y ;ab $E000 ablegen 

BDD6 

E6 

20 


INO 

$20 ;$20,$21 erhoehen 

BDD8 

DO 

03 


BNE 

$BDDD 

BDDA 

E6 

21 


INO 

$21 

BDDC 

E8 



INX 

;Zaeh1er (high) 

BDDD 

20 

FO 

9A 

JSR 

IN0A8A9 ;$A8,$A9 erhoehen 

BDEO 

EO 

10 


OPX 

#$10 

BDE2 

DO 

EE 


BNE 

$BDD2 ;X ungl. 16, dann Schleife 

BDE4 

A5 

01 


LDA 

$01 ;Prozessor-Port 

BDE6 

09 

04 


ORA 

#$04 ;Zeich.gen. unlesbar 

BDE8 

85 

01 


STA 

$01 

BDEA 

A9 

94 


LDA 

#$94 

BDEC 

80 

00 

DD 

STA 

0IA2PRA ;VIO-Bereich ab $0000 

BDEF 

A9 

39 


LDA 

#$39 ;Video-Ram ab $0000 und 

BDFl 

8D 

18 

DO 

STA 

VIOADS ;Zeichengen. ab $E000 

BDF4 

40 

74 

91 

OMP 

BEFO ;zum Leerbefehl 

BEFDETECT: 




BDF7 

20 

02 

82 

OSR 

SGETBYTN ;Typ holen 

BDFA 

8E 

15 

05 

STX 

DETEOTART ;merken 

BDFD 

BD 

lE 

DO 

LDA 

$D01E,X ;entspr. VIO-Register 

BEOO 

8D 

14 

05 

STA 

DETEOTERG ;als Ergebnis merken 

BEOS 

40 

2A 

82 

3MP 

ENDSMB (-Befehl fertig 


TEXTKEY: 

BE06 4B 45 59 00 


; "KEY 
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TEXTCHR: 


BEOA 

43 

48 

52 

24 28 

31 33 29 

00 ;'0HR$(13)" 

EFDISPLAY: 





BE13 

20 

DB 

83 

OSR 

INOBASBZ 

;Oode ueberlesen 

BE16 

A2 

00 


LDX 

#$00 

;$A6,$A7 = $0001 

BE18 

86 

A7 


STX 

$A7 


BEIA 

A9 

01 


LDA 

#$01 


BEIC 

85 

A6 


STA 

$A6 


BEIE 

A9 

06 


LDA 

#$06 

;$20,$21 auf KEYTAB 

BE20 

85 

21 


STA 

$21 


BE22 

A9 

4D 


LDA 

#$4D 


BE24 

85 

20 


STA 

$20 


BE26 

AO 

00 


LDY 

#$00 


BE28 

B9 

06 

BE 

LDA 

TEXTKEY, 

Y ;Text “KEY" ausgeben 

BE2B 

FO 

06 


BEQ 

$BE33 

;kein Endekriterium ? 

BE2D 

20 

D2 

FF 

3SR 

BSOUT 

;Zeichen ausgeben 

BE30 

08 



INY 


BE31 

DO 

F5 


BNE 

$BE28 

;Sohleife 

BE33 

A5 

A6 


LDA 

$A6 

;Key-Nr. nach $63,$62 

BE35 

85 

63 


STA 

$63 

BE37 

A5 

A7 


LDA 

$A7 


BE39 

85 

62 


STA 

$62 


BE3B 

A2 

90 


LDX 

#$90 


BE3D 

38 



SEO 



BE3E 

20 

88 

80 

3SR 

SXFLP 

;nach Fliessk. wandeln 

BE41 

20 

B5 

80 

OSR 

SFAOASO 

;in Text wandeln 

BE44 

20 

2B 

AO 

OSR 

OUTASO 

;Text ausgeben 

BE47 

A9 

20 


LDA 

#$20 

« * * 

/ / 

BE49 

20 

D2 

FF 

3SR 

BSOUT 

;Komma ausgeben 

BE4C 

A9 

22 


LDA 

#$22 

, ■ 

/ 

BE4E 

20 

D2 

FF 

OSR 

BSOUT 

;Anf.zeich. ausgeben 

BE51 

A9 

01 


LDA 

#$01 

BE53 

8D 

AO 

05 

STA 

AY 

;Flag f. “ am Ende 

BE56 

A2 

00 


LDX 

#$00 

BE58 

AO 

00 


LDY 

#$00 


BE5A 

Bl 

20 


LDA 

($20),Y 

;Zeichen aus KEYTAB 

BE5C 

FO 

22 


BEQ 

$BE80 

;kein Endezeichen ? 

BE5E 

09 

OD 


OMP 

#$0D 


BE60 

FO 

45 


BEQ 

$BEA7 

;chr$(l3) ? 

B E62 

AD 

AO 

05 

LDA 

AY 


BE65 

DO 

OF 


BNE 

$BE76 


BE67 

A9 

20 


LDA 

#$20 


BE69 

20 

D2 

FF 

OSR 

BSOUT 

;Komma ausgeben 

BE6C 

A9 

22 


LDA 

#$22 

BE6E 

20 

D2 

FF 

OSR 

BSOUT 

;Anf•zeichen ausgeben 

BE71 

A9 

01 


LDA 

#$01 

BE73 

8D 

AO 

05 

STA 

AY 


BE76 

Bl 

20 


LDA 

($20),Y 

;Zeichen aus KEYTAB 

BE78 

20 

D2 

FF 

OSR 

BSOUT 

; ausgeben 

BE7B 

E8 



INX 
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BE7C 

C8 



INY 



BE7t) 

4C 

5A 

BE 

JMP 

$BE5A 

;Schleife 

BE80 

E6 

A6 


INO 

$A6 

;akt. Keynr. erhoehen 

BE82 

18 



OLO 


BE83 

A5 

20 


EDA 

$20 

;$20,$21 = $20,$21 + 16 

BE85 

69 

10 


ADO 

#$10 


BE87 

85 

20 


STA 

$20 


BE89 

A5 

21 


EDA 

$21 


BE8B 

69 

00 


ADO 

#$00 


BE8D 

85 

21 


STA 

$21 


B E8F 

AD 

AO 

05 

EDA 

AY 

;“-Flag 

BE92 

FO 

05 


BEQ 

$BE99 

;nicht gesetzt ? 

BE94 

A9 

22 


EDA 

#$22 

BE96 

20 

D2 

FF 

JSR 

BSOUT 

;Anf.Zeich. ausgeben 

BE99 

A9 

OD 


EDA 

#$0D 

BE9B 

20 

D2 

FF 

JSR 

BSOUT 

;(cr) ausgeben 

BE9E 

A5 

A6 


EDA 

$A6 

; Keynr. 

BEAO 

09 

11 


OMP 

#$11 

BEA2 

DO 

82 


BNE 

$BE26 

;nicht gleich 17 ? 

BEA4 

40 

2A 

82 

JMP 

ENDSMB 

;Befehl fertig 

BEA7 

AD 

AO 

05 

EDA 

AY 

;‘-Flag 

BEAA 

FO 

OF 


BEQ 

$BEBB 

;nicht gesetzt ? 

BEAC 

A9 

22 


EDA 

#$22 

BEAE 

20 

D2 

FF 

JSR 

BSOUT 

;Anf.zeichen ausqeben 

BEBl 

A9 

2B 


EDA 

#$2B 

* " + " 

1 ^ 

BEB3 

20 

D2 

FF 

JSR 

BSOUT 

;Pluszeichen ausgeben 

BEB6 

A9 

00 


EDA 

#$00 

BEB8 

8D 

AO 

05 

STA 

AY 

;"-Flag ruecksetzen 

BEBB 

A2 

00 


EDX 

#$00 

BEBD 

BD 

OA 

BE 

EDA 

TEXTOHR,X 

;'0HR$(13)“ 

BECO 

FO 

06 


BEQ 

$BE08 

;Endemarkierung ? 

BEC2 

20 

D2 

FF 

JSR 

BSOUT 

/Zeichen ausgeben 

BEC5 

E8 



INX 


BEC6 

DO 

F5 


BNE 

$BEBD 

;Schle ife 

BEC8 

40 

7B 

BE 

JMP 

$BE7B 

/weiter wie oben 

SLIST3 







BECB 

08 



PHP 


/Status retten 

BECC 

80 

FA 

03 

STY 

EYMERK 

/X und Y merken 

BECF 

8E 

FB 

03 

STX 

EXMERK 


BED2 

AO 

8D 

02 

EDY 

SHOOOTFE 

/Shift/0=/0TRE - Flag 

BED5 

00 

01 


OPY 

#$01 

BED7 

DO 

OE 


BNE 

$BEE7 

/kein Shift ? 

BED9 

A2 

00 


EDX 

#$00 


BEDB 

08 



INY 



BEDC 

DO 

FD 


BNE 

$BEDB 

/kleine Warteschleife 

BEDE 

E8 



INX 



BEDF 

EO 

F8 

05 

OPX 

DEEAY 

/De lay-Parameter 

BEE2 

DO 

F7 


BNE 

$BEDB 

/grosse Warteschleife 
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BEE4 

4C 

F2 

BE 

OMP 

$BEF2 

;weiter 

BEE7 

AC 

8D 

02 

LDY 

SHCOCTFL 

;Shift/C=/CTRL - Flag 

BEEA 

CO 

04 


CPY 

#$04 

BEEC 

FO 

04 


BEQ 

$BEF2 

;CTRL-Taste ? 

BEEE 

CO 

00 


CPY 

#$00 


BEFO 

00 

F5 


BNE 

$BEE7 

/irgendeine dieser Tasten? 

BEF2 

AC 

8C 

C5 

LDY 

PAGEFLAG 

BEF5 

CO 

OA 


CPY 

#$0A 


BEF7 

DO 

44 


BNE 

$BF3D 

;PAGE nicht aktiv ? 

BEF9 

AC 

8D 

C5 

LDY 

PAGEWERT 


BEFC 

C4 

D6 


CPY 

$D6 

;Cursorzeile 

BEFE 

BO 

3D 


BCS 

$BF3D 

/Pagewert groesser= Z. ? 

BFOO 

AO 

00 


LDY 

#$00 

BF02 

48 



PHA 



BF03 

Bl 

Dl 


LDA 

($D1),Y 

;akt. BS-Zeile 

BF05 

99 

44 

02 

STA 

$0244, Y 

;ab $0244 ablegen 

BF08 

C9 

20 


CMP 

#$20 

; Leerzeichen 

BFOA 

FO 

04 


BEQ 

$BF10 

;ja ? 

BFOC 

C8 



INY 


/naechstes Zeichen 

BFOD 

4C 

03 

BF 

OMP 

$BF03 

;Schleife 

BFIO 

EA 



NOP 


;(???) 

BFll 

20 

E4 

FF 

OSR 

GETIN 

/Zeichen von Tastatur 

BF14 

C9 

OD 


CMP 

#$0D 


BF16 

DO 

F9 


BNE 

$BF11 

/nicht (RETURN) ? 

BF18 

A5 

D4 


LDA 

$D4 

/“-Flag retten 

BFIA 

48 



PHA 


BFIB 

A9 

00 


LDA 

#$00 


BFID 

85 

D4 


STA 

$D4 

/“-Flag = 0 

BFIF 

A9 

93 


LDA 

#$93 

/ (c 1 r ) 

BF21 

20 

D2 

FF 

3 SR 

BSOUT 

/Bildschirm loeschen 

BF24 

AO 

00 


LDY 

#$00 


BF26 

A9 

20 


LDA 

#$20 


BF28 

20 

D2 

FF 

3SR 

BSOUT 

/ausgeben 

BF2B 

B9 

44 

02 

LDA 

$0244, Y 

/gespeicherte Zeile 

BF2E 

C9 

20 


CMP 

#$20 

/ Leerzeichen 

BF30 

FO 

07 


BEQ 

$BF39 

/ja ? 

BF32 

99 

00 

04 

STA 

$0400,Y 

/in Video-RAM ablegen 

BF35 

C8 



INY 


BF36 

4C 

26 

BF 

JMP 

$BF26 

/Schle ife 

BF39 

68 



PLA 



BF3A 

85 

04 


STA 

$D4 

/“-Flag restaurieren 

BF3C 

68 



PLA 


BF3D 

A2 

83 


LDX 

#$83 

/$20,$21 auf $83E2 

BF3F 

86 

21 


STX 

$21 

/(Befehlstabeile) 

BF41 

A2 

E2 


LDX 

#$E2 


BF43 

86 

20 


STX 

$20 


BF45 

C9 

64 


CMP 

#$64 

/Code = $64 (Simon-Prefix) 

BF47 

FO 

09 


BEQ 

$BF52 

;ja ? 
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BF49 

AC 

FA 

03 

LDY 

LYMERK 

BF4C 

AE 

FB 

03 

LDX 

LXMERK 

BF4F 

4C 

4A 

82 

OMP 

SLISTl 

BF52 

A6 

D4 


LDX 

$04 

BF54 

EO 

00 


CPX 

#$Q0 

BF56 

DO 

Fl 


BNE 

$BF49 

BF58 

AO 

00 


LDY 

#$Q0 

BF5A 

84 

22 


STY 

$2 2 

BF5C 

AC 

FA 

03 

LDY 

LYMERK 

BF5F 

C8 



INY 


BF60 

Bl 

5F 


LDA 

($5F),Y 

BF62 

AA 



TAX 


BF63 

CA 



DEX 


BF64 

8A 



TXA 


BF65 

AO 

00 


LDY 

#$0Q 

BF67 

8D 

D5 

C5 

STA 

LCODE 

BF6A 

48 



PHA 


BF6B 

AD 

DC 

C5 

LDA 

OPTFLAG 

BF6E 

C9 

OA 


CMP 

#$0A 

BF70 

DO 

05 


BNE 

$BF77 

BF72 

A9 

12 


LDA 

#$12 

BF74 

20 

D2 

FF 

OSR 

BSOUT 

BF77 

68 



PLA 


BF78 

C9 

00 


CMP 

#$00 

BF7A 

FO 

21 


BEQ 

$BF9D 

BF7C 

Bl 

20 


LDA 

($20)(Y 

BF7E 

C9 

40 


CMP 

#$40 

BF80 

FO 

09 


BEQ 

$BF8B 

BF82 

E6 

20 


INC 

$20 

BF84 

DO 

02 


BNE 

$BF88 

BF86 

E6 

21 


INC 

$21 

BF88 

4C 

7C 

BF 

OMP 

$BF7C 

BF8B 

E6 

22 


INC 

$22 

BF8D 

A5 

22 


LDA 

$22 

BF8F 

CD 

D5 

C5 

CMP 

LCODE 

BF92 

FO 

03 


BEQ 

$BF97 

BF94 

4C 

82 

BF 

QMP 

$BF82 

BF97 

E6 

20 


INC 

$20 

BF99 

DO 

02 


BNE 

$BF9D 

BF9B 

E6 

21 


INC 

$21 

BF9D 

Bl 

20 


LDA 

($20)(Y 

BF9F 

C9 

40 


CMP 

#$40 

BFAl 

FO 

07 


BEQ 

$BFAA 

BFA3 

20 

D2 

FF 

QSR 

BSOUT 

BFA6 

C8 



INY 


BFA7 

4C 

9D 

BF 

OMP 

$BF9D 


;X und Y restaurieren 
;Basic-List f. 1 Befehl 
; ’-Flag 

;’-Modus aktiv ? 

;Zaehler auf 0 
; altes Y holen 
; erhoehen 

,-Zeiger in Programm 
;Code nach X 

;X-1 nach Akku 

;Code merken 
;und auf Stapel 
;Option-Flag 

;Option nicht aktiv ? 

;(RVS on) ausgeben 
;Code holen 

;1. Befehl ? 

(Zeichen aus TABBEF 
(•Trennzeichen (Klammeraffe) 
(•Ja ? 

;|20,$21 erhoehen 


(•Schleife 
(•Zaehler erhoehen 


(•gleich Code ? 
(•Schleife 

;$20($21 erhoehen 


;Befehlswort 
;Endezeichen 
;ja ? 

(•Zeichen ausgeben 
(•naechstes Zeichen 
(Schleife 
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BFAA 

A9 

92 


LDA 

#$92 

;(RVS off) 

BFAC 

20 

D2 

FF 

OSR 

BSOUT 

;ausgeben 

BFAF 

AC 

FA 

03 

LDY 

LYMERK 

;Y und X herstellen 

BFB2 

C8 



INY 



BFB3 

AE 

FB 

03 

LDX 

LXMERK 


BFB6 

A9 

02 


LOA 

#$02 

(•(sinnloser Code) 

BFB8 

4C 

53 

82 

OMP 

SLIST2 

;zum Basic-List 

ENDE: 







BFBB 

78 



SEI 


;Code wahrscheinlich 


,Kennzeichnung der Version 

;*** nach $BFBB folgen einige Bytes, die jedoch keine 
;*** Bedeutung haben und deshalb auch nicht abgebildet 
;*** wurden. 
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6.3 Tabellen der Variablen und Labels (Marken) 


Die in der Spalte unter 'T' angegebenen Abkürzungen haben 
folgende Bedeutung: 


A - Tabelle von konstanten Adressen (z.B. Sprungtab.) 
b - Simon■s-Befehl, -Funktion oder wichtige Aktion 
B - Basic-Routine 

c - Konstante 

C - Tabelle von Konstanten 
K - KERNAL-Routine 

p - Peripherie-Register (VIC,CIA,SID) 
r - (Hilfs-)Routine von Simon's Basic 

s - Systemvariable 

S - Sytemvektor 

T - Textkonstante 

V - Variable / Hilfszelle für Simon's Basic 

V - Feld von Variablen für Simon's Basic 
w - 2-Byte-Variable für Simon's Basic 

W - Feld von 2-Byte-Variablen für Simon's Basic 


!======================= 

! Symbolname ! Hex. ! T 
!======================= 

! 20PL40 ! 94CE ! r 

! 23PL40 ! 94DC ! r 

! A4MAL40 ! 945F ! r 

! A8A9B0GM ! AA3D ! r 

! A8A9DIV90 ! AAD7 ! r 

! ADTAB ! CBA4 ! V 

! AKTFARB ! 0286 ! s 

! ARCl ! A88D ! r 

! AUTOFLAG ! C5B2 1 v 

! AUTOINC ! C5B1 ! v 

! AUTOZI ! OlFE ! w 

! AX ! C597 ! w 

! AY ! C5AC ! w 

! BADMODE ! 888A ! b 

! BASBZK ! C5F0 ! w 

! BASIN ! FFCF ! K 

! BASROMAU ! 82EC ! r 

! BASROMEI ! 82F3 ! r 

! BEFO ! 9174 ! b 

! BEFANGL ! ABIO ! b 

! BEFARC ! A876 ! b 

! BEFAUTO ! 9BD6 ! b 

!= = = = = = = = = = = = = = = = = = = = == = = = = = = = = = = = = === = = = = = = = = = =: = = = = = = = =:= I 


Bedeutung 


erhöht $20,$21 um 40 ! 
erhöht $23,$24 um 40 ! 
multipliziert $A4,$A5 mit 40 ! 
wandelt Winkel $A8,A9 in Bogm. ! 
ganzz. Div. von $A8,$A9 / 90 ! 
Tabelle f. Attack/Decay-Werte ! 
Aktuelle Farbe ! 
zeichnet Polygon ! 
AUTO aktiv, dann =10; sonst 0 ! 
Inkrement für AUTO-Befehl ! 
Zähler für AUTO-Befehl ! 
Anfangswert X f. Linie (u.a.) ! 
Anfangswert Y f. Linie (u.a.) ! 
Fehlermeldung 'bad mode' ! 


! Programmzählerspeich, f. ONKEY ! 
! Zeichen von Eing.ger. holen ! 
! Basic-ROM ausblenden (L0RAM=0) ! 
! Basic-ROM einschalten (L0RAM=1)! 
! Leerbefehl (z.B. DISAPA) ! 
! ANGL-Befehl ! 
! ARC-Befehl ! 
! AUTO-Befehl ! 
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SymboInatne ! 

Hex. 

! 

Bedeutung 


= ! 

! 


BEFBCKGNDS ! 

A7B5 

i 

b 

! 

BOKGNDS-Befehl 


! 


BEFBFLASH ! 

9669 

! 

b 

! 

FLASH-Befehl 


! 


BEFBLOCK ! 

BC6E 

! 

b 

! 

BLOOK-Befehl 


! 


BEFCALL ! 

9C2A 

! 

b 

! 

OALL-Befehl 


! 


BEFCENTRE ! 

9947 

! 

b 

! 

OENTRE-Befehl 


! 


BEFCGOTO ! 

99E8 

! 

b 

! 

OGOTO-Befehl 


! 


BEFCHAR ! 

A186 

1 

b 

! 

OHAR-Befehl 


! 


BEFCIRCLE ! 

9489 

1 

b 

! 

OIROLE-Befehl 


! 


BEFCMOB ! 

A7A6 

! 

b 

! 

OMOB-Befehl 


! 


BEFCOLD ! 

8147 

! 

b 

! 

OOLD-Befehl 


! 


BEFCOLOUR ! 

9537 

! 

b 

! 

OOLOUR-Befehl 


! 


BEFCOPY ! 

B9F1 

! 

b 

! 

OOPY-Befehl 


! 


BEFCSET ! 

B30D 

! 

b 

! 

OSET-Befehl 


! 


BEFDELAY ! 

9E42 

! 

b 

! 

DELAY-Befehl 


! 


BEFDESIGN 1 

A62E 

! 

b 

! 

DESIGN-Befehl 




BEFDETECT ! 

B0F7 

! 

b 

! 

DETEGT-Befehl (auch 

GHECK-Bef. 

)! 


BEFDIR ! 

9546 

! 

b 

! 

DIR-Befehl 




BEFDISABLE ! 

9DB2 

! 

b 

! 

DISABLE-Befehl 




BEFDISAPA ! 

9174 

! 

b 

! 

DISAPA-Befehl 




BEFDISK ! 

B35D 

! 

b 

! 

DISK-Befehl 




BEFDISPLAY ! 

BE13 

! 

b 

! 

DISPLAY-Befehl 




BEFDRAW ! 

A057 

! 

b 

! 

ORAW-Befehl 




BEFDUMP ! 

9F3F 

! 

b 


DUMP-Befehl 




BEFENDLOOP ! 

9D6F 

! 

b 

1 

END LOOP-Befehl 




BEFENDPROC ! 

9D19 

! 

b 

! 

END PROO-Befehl 




BEFENVELOPE! 

9979 

! 

b 

! 

ENVELOPE-Befehl 




BEFEXEC ! 

9CE3 

! 

b 

! 

EXEO-Befehl 




BEFEXIT ! 

9D37 

! 

b 

! 

EXIT-Befehl (EXIT IF) 



BEFFCHR ! 

A2D0 

! 

b 

! 

FOHR-Befehl 




BEFFCOL ! 

A2E2 

! 

b 


FOOL-Befehl 




BEFFETCH ! 

B004 

! 

b 

! 

FETOH-Befehl 




BEFFILL ! 

A297 

! 

b 

! 

FILL-Befehl 




BEFFIND ! 

A594 

! 

b 

! 

FIND-Befehl 




BEFFLASH ! 

9790 

! 

b 

! 

FLASH-Befehl 




BEFGLOBAL ! 

A33C 

! 

b 

! 

GLOBAL-Befehl 




BEFHICOL ! 

A270 


b 


HI COL-Befehl 




BEFHIRES ! 

91FF 


b 


HIRES-Befehl 




BEFHRDCPY ! 

B4A0 


b 

1 

HRDGOPY-Befehl 




BEFIF ! 

9B6C 

! 

b 


IF-Befehl (Simon's 

Version) 



BEFKEY ! 

B590 

! 

b 

! 

KEY-Befehl 




BEFLINE ! 

9350 

! 

b 

! 

LINE-Befehl 




BEFLOCAL ! 

A2F4 

! 

b 

! 

LOGAL-Befehl 



! 

BEFLOOP ! 

9E24 

! 

b 

j 

LOOP-Befehl 




BEFLOWCOL ! 

9300 


b 

! 

LOW GOL-Befehl 




BEFMEM ! 

BDAD 


b 

! 

MEM-Befehl 




BEFMERGE ! 

8344 

! 

b 

! 

MERGE-Befehl 



1 

BEFMMOB ! 

9508 


b 

! 

MMOB-Befehl 


= 1 
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! Symbolname 

1- 

! Hex. 

1 

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 1 
Bedeutung 1 

! BEFMOBOFF 

! A856 

! 

b 

! 

MOB OFF-Befehl ! 

! BEFMOBSET 

! 96DA 

! 

b 

! 

MOB SET-Befehl ! 

! BEFMULTI 

! 94EA 

] 

b 

! 

MULTI-Befehl ! 

! BEFMUSIC 

! 9759 

! 

b 

! 

MUSIC-Befehl ! 

! BEFNOERR 

1 9E94 

! 

b 

! 

NO ERROR-Befehl 

1 BEFNRM 

! A831 

! 

b 

1 

NRM-Befehl 

! BEFOFF 

! A865 

1 

b 

! 

OFF-Befehl 

! BEFOLD 

! 9EDA 

! 

b 

! 

OLD-Befehl 

! BEFONERR 

! 9E6E 

! 

b 

! 

ON ERR-Befehl 

! BEFONKEY 

! 9D89 

! 

b 

! 

ON KEY-Befehl 

! BEFOPTION 

! 9B63 

! 

b 

! 

OPTION-Befehl 

1 BEFOUT 

! 9ED1 

! 

b 

! 

OUT-Befehl 

! BEFRAGE 

! 9836 

! 

b 

! 

PAGE-Befehl 

! BEFPAINT 

! B5E8 

! 

b 

! 

PAINT-Befehl 

! BEFPAUSE 

! A7E2 

! 

b 

! 

PAUSE-befehl 

! BEFPLAY 

! 9918 

! 

b 

! 

PLAY-Befehl (IRQ-R. bei $8A6l) 

! BEFPLOT 

1 9267 

! 

b 

1 

PLOT-Befehl 

! BEFPROC 

1 9F30 

! 

b 

! 

PROC-Befehl 

! BEFRCOMP 

! 9F1F 

! 

b 

! 

RCOMP-Befehl 

! BEFREC 

! BAF7 

! 

b 

1 

REC-Befehl 

! BEFRENUM 

! 837F 

! 

b 

! 

RENUMBER-Befehl 

! BEFREPEAT 

! 9AF7 

! 

b 

! 

REPEAT-Befehl 

! BEFRESET 

1 9C05 

! 

b 

! 

RESET-Befehl 

1 BEFRESUME 

! 9E0F 

! 

b 

i 

RESUME-Befehl 

! BEFRETRACE 

! 9B48 

! 

b 

! 

RETRACE-Befehl 

! BEFRLOCM 

1 A768 

! 

b 

! 

RLOCMOB-Befehl 

! BEFROT 

1 A15E 

! 

b 

! 

ROT-Befehl 

! BEFSCRLD 

! BIDC 

! 

b 

! 

SCRLD-Befehl 

! BEFSCRSV 

! B18F 

! 

b 

! 

SCRSV-Befehl 

! BEFSECURE 

! 9E4B 

! 

b 

! 

SECURE-Befehl 

! BEFTEXT 

! B229 

! 

b 

! 

TEXT-Befehl 

! BEFTRACE 

! 9B5A 

! 

b 

1 

TRACE-Befehl 

1 BEFUNTIL 

! 9B15 

! 

b 

! 

UNTIL-Befehl 

! BEFUSE 

! B393 

i 

b 

1 

USE-Befehl 

! BEFVOL 

! B33F 

! 

b 

! 

VOL-Befehl 

! BEFWAVE 

! 99F7 

! 

b 

! 

WAVE-Befehl 

! BFLASHFl 

! C5D9 

! 

V 

1 

1. Farbe für BFLASH 

! BFLASHF2 

! C5DA 

! 

V 

1 

2. Farbe für BFLASH 

! BFLASHJN 

! C5DB 

! 

V 

! 

BFLASH-Flag (lO=aktiv) 

! BFLASHSP 

! C5D7 

! 

V 

! 

BFLASH-Geschwindigkeit 

! BFLZAE 

! C5D8 

! 

V 

! 

IRQ-Zähler für BFLASH 

! BINCON 

! 9A09 

! 

r 

! 

Wandelt Binäre Zahl um 

! BIRQ 

! EA31 

1 

B 

! 

(Normale) Basic-IRQ-Routine 

! BITWTAB 

! 9788 

1 

C 

! 

Tabelle der Bitwertigkeiten 

! BLOCKZEI 

! BC77 

! 

r 

! 

Block zeichnen 

! BNMIVEC 

! A002 

! 

S 

1 

NMI-Vektor, wenn Basic aktiv 

! BSOUT 

! FFD2 

1 

K 

1 

ein Zeichen ausgeben 
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Symbolnatne 

Hex. 

! 

T 

! 

Bedeutung ! 

_1 

BWFLAG 

CB82 

1 

V 

! 

Flag für rollen mit B bzw. W ! 

CHARENO 

A04C 

! 

r 

1 

Zeich.gen. lesbar machen ! 

CHARENl 

A045 

! 

r 

! 

Zeich.gen. unlesbar machen ! 

CHARZEI 

! A1B4 

! 

r 

! 

ein Zeich. im Hires-Modus malen! 

CHHEXCHR 

8 CAB 

1 

r 

! 

prüft auf Hexadezimalziffer 1 

CHKCOM 

! AEFD 

! 

B 

! 

prüft, ob Komma folgt 1 

CHKIN 

! FFC6 

! 

K 

1 

setzt Eingabekanal 

CHKKLA 

! AEFA 

! 

B 

! 

prüft, ob Klammer auf folgt 

CHKKLZ 

! AEF7 

! 

B 

! 

prüft, ob Klammer zu folgt 

CHKOUT 

! FFC9 

! 

K 

! 

setzt Ausgabekanal 

CHRGET 

! 0073 

! 

B 

! 

holt nächstes Zeichen 

CHRGOT 

! 0079 

! 

B 

! 

holt letztes Zeichen 

! CHRGR 

! CB6E 

! 

V 

! 

Größe bei CHAR und TEXT 

CIAIDDRA 

! DC02 

! 

P 

! 

CIAl Datenrichtungsregister A 

! CIAIPRA 

! DCOO 

! 

P 

! 

CIAl Port A 

! CIAIPRB 

! DCOl 

! 

P 

! 

CIAl Port B 

CIA2ICR 

! DDOD 

! 

P 

! 

CIA2 Interrupt-Control-Register 

CIA2PRA 

! DDOO 

! 

P 

! 

CIA2 Port A 

CLOSE 

! FFC3 

! 

K 

! 

schliesst Datei 

CLRCH 

! FFCC 

! 

K 

! 

deaktiviert alle Kanäle 

CODEZAE 

! C5E4 

! 

V 

! 

Zähler für ZEIUMW-Routine 

COPBYTE 

! C5E2 

! 

V 

! 

Sammelbyte für COPY-Befehl 

COPZAEY 

! C5E6 

! 

V 

! 

Zähler (Y-Richtung) f. COPY 

COSMALKRY 

! AAIF 

! 

r 

! 

Bildet COS(Winkel) * KRY 

DELAY 

! C5F8 

! 

V 

1 

DELAY-Parameter (0-255) 

DESTABl 

! A71A 

! 

C 

! 

Tabelle f. DESIGN 

DESTAB2 

! A712 

! 

C 

! 

Tabelle f. DESIGN 

DESTAB3 

! A70A 

! 

C 

! 

Tabelle f. DESIGN 

DETECTART 

! C515 

! 

V 

! 

DETECT-Parameter (0,1) 

DETECTERG 

! C514 

! 

V 


Kollisions-Byte 

DIFFV 

! C5A1 

! 

w 

! 

Verhältnis von YDIFF zu XDIFF 

DRAWTABX 

! CB 59 

! 

V 

! 

Tabelle der Richtungsflags X 

DRAWTABY 

! CB5D 

! 

V 

! 

Tabelle der Richtungsflags Y 

DREHSINN 

! C57C 

! 

V 

! 

Drehsinn für ARC-Routine 

DRGRZ 

! C503 

! 

V 

1 

Zähler f. Größe b. DRAW/ROT 

DRINCX 

! CB65 

! 

V 

! 

Inkrement X-Richtung f. DRAW 

DRINCY 

! CB69 


V 

1 

Inkrement Y-Richtung f. DRAW 

DRRICHT 

! CB61 

! 

V 

! 

Richtung für ROT/DRAW 

DRSTATUS 

! CB50 

! 

V 

! 

Status von DRAW 

DRSTRZ 

! CB4F 

! 

V 

! 

Zeiger in String von DRAW 

DRX 

! CB6D 

! 

w 

1 

X-Koordinate für DRAW 

DRY 

! C5A3 

! 

V 

! 

Y-Koordinate für DRAW 

DRYANF 

! CB51 

! 

V 

! 

Anfangswert (Y) für DRAW 

DSCBMOUT 

! 9A5A 

! 

r 

1 

'ds-cbm‘ ausgeben 

DSCBMOUTl 

! BDAA 

! 

r 

! 

’ds-cbm' ausgeben 

DWERT 

! CBAE 

! 

V 

! 

Hilfsvariable 

ENDE 

! BFBB 

* 


! 

Ende von Simon's Basic 
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Symbolname 

! Hex. 

! 

T 

! 

Bedeutung 

ENDSMB 

! 822A 

! 

r 

! 

Simon's Befehl beenden 

ERRLN 

! C51D 

! 

w 

! 

Zeilennummer, wo Fehler auftrat 

ERRN 

! C5FC 

! 

V 

! 

Fehlercode von letztem Fehler 

EX 

! C5AA 

! 

w 

! 

Endwert X-Koord. f. LINE (u.a.) 

EY 

! C5A8 

! 

w 

! 

Endwert Y-Koord. f. LINE (u.a.) 

FARBSET 

! 9383 

! 

r 

! 

Farbe f. LOWCOL lokal ändern 

FEHLMTAB 

! 88BA 

i 

A 

! 

Tabelle der Fehlerm.-Adressen 

FETCHANZ 

! CB6F 

j 

V 

! 

Anzahl der Zeichen für FETCH 

FETCHLEN 

! CB72 

! 

V 

! 

Länge des Strings bei FETCH 

FETCHT 

! B053 

! 

r 

! 

holt Zeichen von Tastatur 

FETCHTAB 

! B15B 

! 

V 

1 

Tabelle der Sondercodes 

FILLBER 

! A278 

! 

r 

! 

Bereich mit Code beschreiben 

FLAGl 

! CA52 

! 

V 

1 

Hilfs-Flag 

FLASHFL 

! C5C6 

[ 

V 

! 

FLASH-Flag (aktiv = 10) 

FLASHFLS 

! C504 

! 

V 

! 

Flag-Tabelle für FLASH-Farben 

FLASHSP 

! C5C4 

! 

V 

! 

FLASH-Geschwindigkeit ! 

FLASHZAE 

! C5C5 

! 

V 

! 

IRQ-Zähler für FLASH ! 

FNAT 

! 97B7 

1 

b 

! 

AT-Funktion 

FNCHECK 

! 90EF 

1 

b 

! 

CHECK-Funktion 

FNDIV 

! 8F8E 

1 

b 

! 

DIV-Funktion 

FNDUP 

! 8D69 

! 

b 

! 

DUP-Funktion ! 

FNERR 

! 9146 

! 

b 

! 

ERRor-Funktionen ERRLN und ERRN 

FNERRLN 

! 9158 

! 

b 

! 

ERRLN-Funktion 

FNERRN 

! 916D 

! 

b 

! 

ERRN-Funktion 

FNEXOR 

! 8D46 


b 

! 

EXOR-Funktion 

FNFRAC 

! 8DFC 

! 

b 

! 

FRAC-Funktion 

FNGRAPHICS 

! 90CC 

! 

b 


GRAPHICS-Funktion 

FNINKEY 

! 90 A8 


b 

! 

INKEY-Funktion 

FNINSERT 

! 8EB3 

! 

b 

! 

INSERT-Funktion 

FNINST 

! 9033 

! 

b 

! 

INST-Funktion 

FN30Y 

! 88 D4 

! 

b 

! 

OOY-Funktion 

FNLIN 

! 8FEA 

! 

b 

! 

LIN-Funktion 

FNMOD 

! 8FBC 

j 

b 

! 

MOD-Funktion 

FNPENX 

! 893A 

! 

b 

! 

PENX-Funktion 

FNPENY 

! 8943 


b 

i 

PENY-Funktion 

FNPLACE 

1 8E4F 

j 

b 

! 

PLACE-Funktion 

FNPOT 

! 891A 

! 

b 

! 

POT-Funktion 

FNSOUND 

! 90DA 

! 

b 

! 

SOUND-Funktion 

FNTEST 

! 8FFC 

1 

b 

! 

TEST-Funktion 

FRQTABH 

! 8C06 

! 

C 

! 

Frequenztabelle Low f. Musik 

FRQTABL 

! 8BF2 

! 

C 

! 

Frequenztabelle High f. Musik 

GADRTABH 

! 9446 

! 

C 

! 

Grafik-RAM-Adressen High 

GADRTABL 

! 942D 

! 

C 

i 

Grafik-RAM-Adressen Low 

GBITCLR 

! 9AB4 

! 

r 

1 

löscht Bit im Grafik-RAM 

! GBITSET 

! 9AAB 

! 

r 

1 

setzt Bit im Grafik-RAM 

! GBITTABL 

1 9340 

! 

C 

! 

Tabelle zum Löschen von Bits 

1 GBITTABS 
! = = = = = = = = = = = = 

! 9330 

! 

C 

! 

Tabelle zum Setzen von Bits 
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Symbolname 

! Hex • 

! 

T 

! 

Bedeutung 

GET2NYB 

! 99CC 

! 

r 

! 

holt zwei Werte (0-15) 

GETBIN 

! 8CC3 

! 

r 

! 

holt Binärzahl 

GETBYTC 

! 8C75 

! 

r 

! 

prüft auf Komma und holt Byte 

GETHEX 

! 8CD7 

! 

r 

! 

holt Hexadezimal-Wert 

GETIN 

! FFE4 

! 

K 

! 

holt ein Zeichen aus Tast.puff. 

GETPKTF 

! 937D 

1 

r 

! 

holt Punktfarbe (nach $F7) 

GETRCWD 

! AC8D 

! 

r 

! 

holt 4 Parameter 

GETXYXYF 

! 9359 

! 

r 

! 

holt 5 Parameter 

GFLAG 

! C5AE 

! 

V 

! 

Flag f. Block-Zeichnen 

GMEMFLAG 

! C5B3 

! 

V 

i 

Flag, für Grafik-Modus 

HEX2W 

! 8D28 

! 

r 

i 

holt Wert von 2-stell. Hexzahl 

HEXCON 

! 8CE0 

! 

r 

! 

wandelt Hexzahl nach Integer 

HEXW 

! 8D3C 

! 

r 

! 

bildet Wert von Hex-Ziffer 

HILFFLl 

! C52B 

! 

V 

! 

Hilf-Flag f. PAINT 

HILFFLAG 

! C52C 

! 

V 

! 

Hilf-Flag f. PAINT 

IDIV 

! 8F45 

! 

r 

! 

ganzzahlige Division 

IDIVDEND 

! CBCO 

! 

w 

! 

Dividend und Ergebnis f. IDIV 

lOIVREST 

! CBC2 

! 

w 

! 

Rest von IDIV 

IDIVSOR 

! CBBB 

! 

w 

i 

Divisor für IDIV 

IFFLAG 

! C5CB 

! 

V 

! 

Ergebnis der IF-Bedingung 

INC$20 

! A039 

! 

r 

! 

$20,$21 um eins erhöhen 

INC$20 

! 9CDC 

! 

r 

! 

$20,$21 um eins erhöhen 

INCA6A7 

! 9AE9 


r 

! 

$A6,$A7 um eins erhöhen 

INCA8A9 

! 9AF0 

! 

r 

! 

$A8,$A9 um eins erhöhen 

INCBASBZ 

! 83DB 


r 

! 

Basic-Befehlszeiger erhöhen 

INKEY 

! C5D6 

! 

V 

! 

Nummer von Funktionstaste 

aOYWERT 

! CB70 

! 

V 

! 

Wert von OOY-Abfrage (u.a.) 

KERERRB 

I E0F9 

! 

B 

! 

Behandlung von Kernal-Fehlern 

KERROMAUS 

! 9406 

! 

r 

! 

Kernal-ROM ausblenden (HIRAM=0) 

KERROMEIN 

! 940 E 

! 

r 

! 

Kernal-ROM einsch. (HIRAM=1) 

KEYFLAG 

! C646 

! 

V 

! 

Flag, ob KEY gesperrt (aktiv=0) 

KEYON 

! C5EC 


V 


gedrückte Taste bei ONKEYl 

KEYTAB 

! C64D 

! 

V 

! 

Tabelle der Strings f. KEY 

KMX 

! CB4B 

! 

w 

! 

Kreismittelpunkt X-Koord. 

KMXMINUS 

! AABO 

! 

r 

! 

Wert von Kreismp.X abziehen 

KMXPLUS 

! AA97 

! 

r 

! 

Wert zum Kreismp.X addieren 

KMY 

! CB49 

1 

w 

! 

Kreismittelpunkt Y-Koord. 

KMYMINUS 

! AAC8 

! 

r 

! 

Wert von Kreismp.Y abziehen 

KMYPLUS 

! AAA7 

! 

r 

i 

Wert zum Kreismp.Y addieren 

KREIS 

! A914 

! 

r 

! 

Ellipse bzw. Polygon zeichnen 

KREISl 

! A94F 

! 

r 

! 

Fortsetzung von KREIS 

KRX 

! CB48 

! 

V 

! 

Eliipsen-Radius X-Komponente 

KRY 

! CBC5 

! 

V 

! 

Eli ipsen-Radius Y-Komponente 

LASTKEY 

! C642 

1 

V 

! 

Letzte gedrückte Taste 

LCFARB12 

! CBIB 

! 

V 

! 

Farben 1 und 2 von LOW COL 

LCFARB3 

! CBIC 

! 

V 

t 

Farbe 3 für LOW COL 

LCODE 

! 0505 

! 

V 

! 

Hilfszähler für LIST-Routine 
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Symbolname 

Hex. ! 

T ! 

Bedeutung ! 

LINZEI 

A35E ! 

r ! 

Linie ziehen ! 

LOCALTAB 

CA53 ! 

V 1 

Tabelle der als LOCAL def. Var.! 

LOWCOLFLAG 

CBID ! 

V ! 

LOWCOL-Flag (aktiv = 10) 1 

LPX 

C500 ! 

V ! 

Wert von Light-Pen (X-Anteil) 1 

LPY 

C501 ! 

V ! 

Wert von Light-Pen (Y-Anteil) ! 

LXMERK 

03FB ! 

V ! 

Zwischenspeicher f. X bei LIST I 

LYMERK 

03FA 1 

V 1 

Zwischensp. f. Y bei LIST-Rout.1 

MBITTABL 

9780 ! 

C ! 

Tabelle zum Löschen von Bits 1 

MBITTABS 

9778 ! 

C ! 

Tabelle zum Setzen von Bits 1 

MELDUNG 

8208 1 

T ! 

Einschalt-Meldung 1 

MERKEPKT 

B9D7 ! 

r 

Punkt auf PAINT-Stapel legen 1 

MERKZEI 

B49B ! 

r ! 

Zeichen im Puffer merken (USE) 1 

MFREQ 

C599 1 

w 

Frequenzwert bei Musik 1 

MOBBEW 

C5B4 ! 

V 

Flag, ob MOB bewegt werden soll! 

MOBBEWEG 

A3AC 

r 

MOB bewegen bzw. Linie ziehen 1 

MOBEXL 

! 8C5B 

r 

MOB in X-Richt. verkleinern 

MOBEXS 

8C41 

r 

MOB in X-Richt. vergrößern 1 

MOBEYL 

! 8C68 

r 

MOB in Y-Richt. verkleinern 

MOBEYS 

! 8C4E 

r 

MOB in Y-Richt. vergrößern 

MOBNR 

! C5BC 

V 

Nummer des Sprites 

M0BNR2 

! C5BB 

V 

Doppelte Spritenummer 

MOBPOSS 

! 9625 

r 

Setze neue MOB-Position 

MOBSPEED 

! C5B5 

V 

Geschwindigkeit des MOB‘s 

! MODULTEXT 

! 8004 

T 

Text zur Modul-Erkennung 

1 MOVEBEF 

! AC5D 

b 

Alle Move-und Scrol1-Befehle 

! MOVEDR 

! AEC6 

r 

Move nach unten oder rechts 

! MOVETAB 

1 CBIE 

V 

Platz f. alte Zeile bzw. Spalte 

! MOVEUL 

! AD8D 

r 

Move nach oben oder links 

! MOVEZ 

! ACB5 

V 

Zähler für Move-Befehle 

! MREGADR 

! CB8C 

w 

Basis-Adresse im SID f. Stimme 

! MULTIJN 

! C5B0 

V 

Multi-Flag (aktiv = $2C) 

! MUSICADR 

! CB9B 

w 

Adresse des Strings nach MUSIC 

! MUSICDAU 

! CB96 

V 

Ton-Dauer-Parameter von MUSIC 

! MUSICLEN 

1 CB9E 

V 

Länge des Strings nach MUSIC 

! MUSICZl 

! CB9D 

V 

Zähler für Musik (SIRQPALY) 

! MUSICZ2 

! CB86 

V 

Zähler für Musik 

! MUSICZ3 

! CB88 

V 

1 Zähler für Musik 

! MUSICZ4 

1 CB8A 

! V 

1 Zähler für Musik 

! MUSICZ5 

! CB9F 

V 

i Zähler für Musik 

! NEUSTR 

! B47D 

B 

1 Neuen String einrichten 

! NOTENTAB 

! 8BDE 

! T 

1 Tab. mit den zul. Notenzeichen 

! NOTESUCH 

! 8BA1 

r 

suche Note in NOTENTAB 

! NRM 

! A837 

! r 

normiert Video-Register 

! ONERRORFLAG! C5FB 

! V 

ON ERROR-Flag (aktiv = 10) 

! ONERRZEIG 

! C5F9 

! w 

Zeiger auf Error-Routine 

! ONKEYl 

! 9DBA 

! r 

behandelt ONKEY bei IRQ 

! ONKEYFLAG 

1 = = = = = = = = = = = = 

1 C5EA 

! V 

1 ON KEY-FIag (aktiv = 10) 
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Symbolname 

! Hex. 

! 

T 

1 

=============================== 

Bedeutung 


ONKEYZEIG 

! 05 E8 

! 

w 

! 

Zeiger auf ONKEY-Routine 


OPEN 

! FFCO 

! 

K 

! 

öffnet Datei 


OPTFLAG 

! C5DC 

1 

V 

! 

OPTION-Flag (aktiv = 10) 


OUT= 

! A040 

1 

r 

1 

Gleichheitszeichen ausgeben 


OUTASC 

! A02B 

! 

r 

1 

Text ab $0100 ausgeben 


PAGEFLAG 

! 058 C 

! 

V 

! 

PAGE-Flag (aktiv = 10) 


PAGEWERT 

! 058 D 

! 

V 

! 

Zeilenzahl für PAGE 


PAKTY 

! 0A51 

! 

V 

! 

akt. Y-Koord. bei PAINT 


PENABFR 

! 894E 

! 

r 

1 

Light-Pen-Abfrage 


PENDFLAG 

! 05DD 

! 

V 


Flag, ob Programm zu Ende 


PKBER 

! AA71 

! 

r 

! 

absolute Koord. berechnen 


PLAYEND 

! 8ADE 

! 

r 

! 

Musik als beendet kennzeichnen 


PLAYFLAG 

1 0B91 

! 

V 

! 

spielt gerade Musik ? (ja=10) 


PLPOS 

! OBBl 

1 

V 

! 

Position bei PLAGE 


PORTSPEI 

! 0596 

! 

V 

! 

Speicher für alten Port-Wert 


POS 

! 051F 

! 

V 

! 

Positionszäh. bei String-Bef. 


POSl 

! 0520 

1 

V 

! 

Positionszäh. bei String-Bef. 


PRESTOR 

1 813B 

! 

r 

! 

stellt alten Wert im Port her 


PROCNFFL 

1 0597 

! 

V 

! 

Flag, ob 'proc not f.‘ ausgeben 

1 

PSPEIBE 

! 8120 

! 

r 

! 

Port-Wert sichern und Basic ein 


PSPEINMI 

! 058 B 

i 

V 

! 

Port-Wert bei NMI 


PTESTl 

1 A261 

! 

r 

! 

Testet Punkt im Hires-Modus 


PUNKT 

! 9297 

1 

r 

! 

zeichnet einen Punkt 


PUSHSTR 

! B40A 

1 

B 

! 

bringt String-Deskr. auf Stapel 


PXHTAB 

! 0751 

! 

V 

! 

Stapel der X-K. (high) f. PAINT 


PXLTAB 

! 0850 

! 

V 

! 

Stapel der X-K. (low) f. PAINT 


PYALT 

! 0A50 

! 

V 

! 

alter Y-Wert bei PAINT 


PYMERK 

! 0A4F 

1 

V 

! 

Merker für Y bei Paint 


PYTAB 

1 094F 

! 

V 

! 

Stapel der Y-K. für PAINT 


PZEIG 

! 0A4E 

! 

V 

! 

Zeiger in PAINT-Stapel 


PZEILB 

! OlFB 

! 

V 

! 

Bereich für Programmzeile 


RICHTZ 

! 0B70 

! 

V 

! 

Richtungsflag u. Zäh. b. Moveb. 


ROTGR 

! 0502 

! 

V 

! 

Größe bei ROT/DRAW 


RVSBLANK 

! B170 

! 

r 

i 

ein RVS-Leerzeichen ausgeben 

! 

SASCFLP 

! 8079 

! 

r 

! 

Text in Fliesskomma wandeln 


SBASBEF 

! 917A 

! 

r 

! 

Befehl dekodieren und ausführ. 


SBRK 

! 8314 

! 

b 

! 

BRK-Routine von Simon's Basic 


SBZPLY 

! 80FD 

! 

r 

! 

Basic-Zeiger um Y erhöhen 

j 

SCHKCOM 

! 8031 

1 

r 

j 

prüft, ob Komma folgt 


SCHKCOMl 

! 8067 

1 

r 

! 

prüft, ob Komma folgt 


SCHKKLZ 

! 807F 

! 

r 

! 

prüft, ob Klammer zu folgt 


SCHKZEI 

! 805E 

! 

r 

! 

prüft, ob Code im Akku folgt 


SCHRART 

! 0B4D 

! 

V 

! 

Schriftart für TEXT 


SCLRCH 

! 80 DO 

i 

r 

! 

schliesst alle Kanäle 

1 

SCOS 

! 8028 

! 

r 

! 

ruft Basic-SIN-Funktion auf 

I 

SERROUT 

! 8880 

1 

r 

! 

gibt Simon ' s-Fehlermeldung aus 


SETFNPAR 

! FFBD 

! 

K 

! 

setzt Filenamenparameter 


II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

= = 

= = 

= = 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 
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SETFPAR ! FFBA ! K ! setzt Fileparameter ! 

SFACADR ! 8016 ! r ! wandelt FAC in Adressformat ! 

SFACARG ! 8091 ! r ! überträgt FAC nach ARG ! 

SFACASC ! 80B5 ! r ! wandelt FAC in Text um ! 

SFDIV ! 80AC ! r ! ruft Basic-Fliessk.Division auf! 

SFLDFACK I 80A3 I r ! lädt FAC mit Konstante I 

SFMIJLT I 809A I r 1 ruft Basic-F 1 iessk.-Mult. auf I 

SFRESTR 1 8043 I r I holt Stringparameter (n.FRMEVL)l 

SFRMEVL I 803A ! r I wertet beliebigen Ausdruck aus I 

SFRMNUM I 8000 I r I wertet numerischen Ausdruck aus! 

SGETADR ! 9427 ! r ! holt Adressparameter ! 

SGETADR2 ! 9415 ! r ! holt Adressparameter ! 

SGETARI ! 8C8D ! r ! wertet arithmet. Element aus ! 

SGETARIl ! 807C ! r ! ruft Basic-GETARI-Routine auf ! 

SGETBYTl ! 8106 ! r ! holt Byte-Parameter ! 

SGETBYTC ! 81FC ! r ! prüft auf Komma und holt ByteP ! 

SGETBYTN ! 8202 ! r ! überliest Code und holt Byte-P ! 

SGETSTR ! 86B7 ! r ! holt Stringparameter ! 

SGETSTRl ! 8C7B ! r ! holt Stringparameter ! 

SGETSTRN ! 86B4 ! r ! überl. Code u. holt Stringpar. ! 

SGETVAR ! 80BE ! r ! holt Variablenparameter ! 

SGOTOl ! 8055 ! r ! zum Basic-GOTO-Befehl ! 

SGOTOll ! 810F ! r ! zum Basic-GOTO-Befehl ! 

SHCOCTFL ! 028D ! s ! Flag f. Shift/C=/CTRL I 

SHWERTTAB ! 9892 ! C ! Wert von Sh./C= für KEY ! 

SIDTAB ! 9A54 ! C ! Tab. d. Basisadr. d. SID / St. ! 

SINMALKRX ! AAOl ! r ! bildet SIN(Winkel) * KRX I 

SINPUTl ! 80EB ! r ! zum Basic-INPUT-Befehl ! 

SINTOUT ! 804C ! r ! gibt Integer-Zahl aus I 

SIRQ ! 9694 ! b ! Simon's IRQ-Routine (BFLASH) ! 

SIRQ2 ! 97D2 ! r ! Fortsetzung (FLASH) I 

SIRQ3 ! 9850 ! r ! Fortsetzung (INKEY) ! 

SIRQ4 ! 9896 ! r I Fortsetzung (KEY) ! 

SIRQ5 ! 98FF ! r ! Fortsetzung (PLAY) ! 

SIRQPLAY ! 8A61 ! r ! IRQ-Unterroutine für PLAY ! 

SLIST ! 8240 ! b ! Simon's List-Routine (Teil 1) ! 

SLISTl ! 824A ! r 1 zur Basic-List-Routine ! 

SLIST2 ! 8253 ! r ! zur Basic-List-Schleife ! 

SLIST3 ! BECB ! r ! Simon's List-Routine (Teil 2) ! 

SLOOP ! 825C ! b ! Eingabeschleife (Simon's Vers.)! 

SNEXTTR ! 80E2 ! r ! sucht nächstes Trennzeichen ! 

SNMI ! 82FA ! b ! Simon's NMI-Routine ! 

SNMIVEC ! 8002 ! S ! NMI-Vektor im Simon's Modul ! 

SOPEN ! 8123 ! r ! ruft Basic-Befehl OPEN auf ! 

SPALTEANF ! CB77 ! V ! Anfangsspalte für Movebefehle ! 

SPALTENANZ ! CB78 ! V ! Soaltenzahl für Movebefehle ! 

! SPEXEC ! C62C ! V ! Stackpointer für EXEC ! 
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Symbolname 

Hex. 

! 

T 

! 

— 

Bedeutung 

SPLOOP 

1 C641 

! 

V 

! 

Stackpointer für LOOP 

SPREPEAT 

C617 

1 

V 

1 

Stackpointer für REPEAT 

SPRTAB 

86C4 

! 

A 

! 

Sprungtabelle für Befehle 

SPUFOCR 

80F4 

! 

r 

! 

Puffer mit 0 abschl. und Return 

SREM 

80D9 

! 

r 

! 

zum Basic-Befehl REM 

SRTAB 

CBAO 

j 

V 

! 

Tabelle für Sustain/Release 

SSGETADR 

9415 

1 

r 

! 

holt Adressparameter 

SSIN 

80IF 

! 

r 

! 

ruft Basic-Funktion SIN auf 

SSMNI 

8118 

! 

b 

! 

NMI-Einsprung, wenn KERNAL aus 

SSTART 

80 OA 

! 

b 

! 

Kaltstart-Adresse von Sim.B. 

SSTRPZ 

8070 

! 

r 

! 

berechnet Zeilenstartadresse 

STACKEXEC 

C618 

! 

W 

! 

Stack für EXEC 

STACKLOOP 

C62D 

! 

W 

! 

Stack für LOOP 

STACKREPEAT 

C603 

! 

W 

! 

Stack für REPEAT 

STARTVEC 

8000 

! 

S 

! 

Modul-Reset-Vektor 

STESTDIRM 

80 C7 

! 

r 

! 

prüft auf Programm-Modus 

STIMMEIN 

8C1A 

! 

r 

! 

schletet Stimme ein 

STIMMENR 

CBA8 

! 

V 

! 

Nummer der akt. Stimme 

STRl 

CBAB 

! 

V 

1 

Hilfsadresse bei Stringbefehlen 

STRLENl 

CB B7 

! 

V 

! 

Stringlge. d. l.Str. b. Strbef. 

STRLEN2 

CBB4 

! 

V 

! 

Stringlge. d. 2.Str. b. Strbef. 

STRZl 

C518 

! 

V 

! 

Hilfszelle für String-Befehle 

STRZ2 

C519 

i 

V 

! 

Hilfszelle für String-Befehle 

SUCHCODE 

9C39 


r 

! 

sucht Code im Programm 

SUCHCODEN 

9C60 

! 

r 


überliest Code und sucht dann 

SWARM 

9E9C 

! 

b 

! 

Simon's Warmstart 

SXFLP 

8088 

! 

r 

! 

wandelt nach Fliessk. (X=Exp.) 

SXYFLP 

8CCD 

! 

r 

! 

wandelt Zahl in (X/Y) nach Flk. 

TAB? 

86AA 

! 

V 

! 

fragwürdige Tabelle 

TABBEF 

83E2 

! 

T 


Tabelle der Befehlswörter 

TABOOY 

8912 

1 

C 

! 

Tabelle der Joystick-Werte 

TABROT 

AUE 

! 

C 

! 

Tab. für Richtungen bei DRAW 

TABSAUBER 

B96E 

! 

r 

! 

'säubert' Stapel für PAINT 

TABSAUBERl 

B975 

! 

r 

! 

Fortsetzung von TABSAUBER 

TASTPUFF 

0277 

! 

s 

! 

T astaturpuffer 

TESFFREI 

B9BA 


r 


prüft,ob Punkt gesetzt (PAINT) 

TEXTCHR 

BEOA 


T 


Text “CHRlClS)" 

TEXTKEY 

BE06 

! 

T 

! 

Text "KEY" 

TRACEl 

896A 

! 

r 

! 

behandelt TRACE 

TRACEFLAG 

C601 

! 

V 

! 

TRACE-Flag (10 = aktiv) 

TRACESHl 

89E9 

1 

r 


Fortsetzung von TRACESHOW 

TRACESHOW 

89E2 

! 

r 

! 

beschreibt TRACE-Fenster 

TRACETAB 

C531 

! 

V 

! 

Tabelle der letzten Zeilennrn. 

TRACETAB+36 

C555 


V 


letzte Zeilennummer 

TRSHIFT 

8998 

! 

r 

1 

schiebt Znrn in TRACETAB weiter 

UEBER4 

A6FE 


r 

! 

überliest 4 Byte des Programms 

UEBERDREH 
|_- 

C52F 


V 


Flag, wenn 360 Grad überschr. 
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II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

= = 

= = 

= = 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

! 

Symbo1name 

! Hex. 

! 

T 

! 

Bedeutung 

! 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 


= = 

= = 

= = 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

! 

USELEN 

! 020D 

! 

V 

! 

Länge des Strings bei USE 

! 

USEPUFF 

! 0212 

! 

V 

1 

Resultat-String bei USE 

! 

VGLA 

! C523 

! 

w 

! 

Vergleichswert 1 

! 

VGLAE 

! A616 

! 

r 

! 

Vergleichsroutine 

! 

VGLE 

! C51A 

! 

w 

j 

Vergleichswert 2 

! 

VICADS 

! D018 

! 

P 

1 

VIC Adressregister 

! 

VICHIFAR 

! D021 

! 

P 

! 

VIC Hintergrundfarbe 0 

! 

VICIKQF 

! 0019 

! 

P 

! 

VIC Interrupt-Flag-Register 

! 

VICIRQM 

! DOIA 

! 

P 

! 

VIC Interrupt-Maske 

! 

VICLPX 

! 0013 

! 

P 

! 

VIC Light-Pen-X Register 

! 

VICLPY 

! 0014 

! 

P 

! 

VIC Light-Pen-Y Register 

! 

VICMEA 

! 0015 

! 

P 

! 

VIC MOB’s ein/aus 

! 

VICMEX 

! 0010 

! 

P 

1 

VIC MOB's vergr. X-Richtung 

! 

VICMEY 

! 0017 

! 

P 

! 

VIC MOB■s vergr. Y-Richtung 

! 

VICMFA 

! 0027 

! 

P 

! 

VIC MOB-Farbe (MOB 0) 

! 

VICMMC 

! OOlC 

! 

P 

j 

VIC MOB-Art (Multi ?) 

! 

VICMMCl 

! 0025 

! 

P 

! 

VIC MOB-Farbe 1 

! 

VICMMC2 

! 0026 

! 

P 

! 

VIC MOB-Farbe 2 

! 

VICMPR 

! OOIB 

! 

P 

! 

VIC MOB-Priorität 

! 

VI GMX 

! 0000 

! 

P 

! 

VIC MOB-Koordinaten X (Bit 0-7 

! 

VICMX8 

! 0010 

! 

P 

! 

VIC MOB-Koordinaten X (Bit 8) 

! 

VICMY 

! 0001 

! 

P 

! 

VIC MOB-Koordinaten Y 

! 

VICRAFAR 

! 0020 

! 

P 

! 

VIC Rahmenfarbe 

! 

VICSTl 

! 0011 

! 

P 

! 

VIC Steuerregister 1 

! 

VICST2 

! 0016 

! 

P 

! 

VIC Steuerregister 2 

! 

VIDRAMHI 

! 0 288 

! 

s 

! 

High-Byte Beginn Video-RAM 

! 

WARM 

! E386 

! 

B 

! 

normaler Basic-Warmstart 

! 

WAVETAB 

! C64A 

! 

V 

! 

Tabelle der Wellenformen 

! 

WEISSECK 

! 8A3A 

! 

r 

! 

Weisses Fenster f. TRACE malen 

! 

WINKSW 

! CB40 

! 

w 

! 

Winkel-Schrittweite f. KREIS 

! 

X123 

! 9A6F 

! 

r 

! 

prüft, ob X zwischen 1 und 3 

! 

XDIFF 

! C5A6 

! 

w 

! 

Oifferenz der X-Koordinaten 

! 

XMAXHIGH 

! C52E 

! 

V 

! 

Max. X-Koord. (High-Byte) 

! 

XMAXLOW 

! C520 

! 

V 

! 

Max. X-Koord. (Low-Byte) 

! 

XNYB 

! 9A6A 

! 

r 

! 

prüft, ob X kleiner 16 

! 

YDIFF 

! C59F 

! 

w 

! 

Oifferenz der Y-Koordinaten 

! 

YNEXT 

! A50C 

! 

r 

! 

peilt nächsten Y-Wert an 

! 

ZAEHLER 

! CB7A 

! 

V 

i 

HiIfszäh1er 

! 

ZAEHLMl 

! CB7E 

! 

V 

! 

Hi1fszäh1er 

! 

ZAEHLM2 

! CB80 

! 

V 

! 

HiIfszäh1er 

! 

ZAEIRQ 

! C516 

! 

V 

! 

Zähler für 1/60 sec. 

! 

ZAESEC 

! C517 

! 

V 

! 

Zähler für Sekunden (PAUSE) 

! 

ZEILEANF 

! CB76 

! 

V 

! 

Anfangszeile für Movebefehle 


ZEILENANZ 

! CB79 

! 

V 

! 

Zeilenanzahl für Movebefehle 


ZEIUMW 

! 8234 

! 

b 

! 

Umwandlung einer Prog.-Zeile 


ZEIUMWl 

! AB79 

! 

b 

! 

Fortsetzung von ZEIUMW 


ZN 

! C586 

! 

w 

! 

Zeilennummer 

! 
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Symbolnatne 

Hex. 

T 

Bedeutung 


ZWISP2 

CB54 

V 

Hilfszelle 


ZWISP3 

CB84 

V 

Hilfszelle 


ZWISP4 

! CB71 

V 

Hilfszelle 

! 

ZWSPEIl 

! C57D 

V 

Hilfszelle 

! 


!========================================================! 


0073 

OHRGET 

8009 

SREM 

0079 

OHRGOT 

80E2 

SNEXTTR 

OlFB 

PZEILB 

80EB 

SINPUTl 

OlFE 

AUTOZI 

80F4 

SPUFOOR 

OlFF 

AUTOZI+1 

80F0 

SBZPLY 

0200 

USELEN 

8106 

SGETBYTl 

0212 

USEPUFF 

810F 

SGOTOll 

0277 

TASTPUFF 

8118 

SSMNI 

0286 

AK TFARB 

8123 

SOPEN 

0288 

VIORAMHI 

812C 

PSPEIBE 

0280 

SHOOGTFL 

813B 

PRESTOR 

03FA 

LYMERK 

8147 

BEFCOLO 

03FB 

LXMERK 

81FC 

SGETBYTO 

8000 

STARTVEG 

8202 

SGETBYTN 

8002 

SNMIVEG 

8208 

MELOUNG 

8004 

MOOULTEXT 

822A 

ENOSMB 

800A 

SSTART 

8234 

ZEIUMW 

8000 

SFRMNUM 

8240 

SEIST 

8016 

SFAGAOR 

824A 

SLISTl 

801F 

SSIN 

8253 

SLIST2 

8028 

SGOS 

8250 

SLOOP 

8031 

SOHKGOM 

82E0 

BASROMAU 

80 3A 

SFRMEVL 

82F3 

BASROMEI 

8043 

SFRESTR 

82FA 

SNMI 

8040 

SINTOUT 

8314 

SBRK 

8055 

SGOTOl 

8344 

BEFMERGE 

805E 

SOHKZEI 

83 7F 

BEFRENUM 

8067 

SGHKGOMl 

830B 

INGBASBZ 

8070 

SSTRPZ 

83 E2 

TABBEF 

8079 

SASGFLP 

86AA 

TAB? 

8070 

SGETARIl 

86B4 

SGETSTRN 

807F 

SGHKKLZ 

86B7 

SGETSTR 

8088 

SXFLP 

86C4 

SPRTAB 

8091 

SFAGARG 

8605 

SPRTAB+1 

809A 

SFMULT 

888A 

BAOMOOE 

80A3 

SFLOFAOK 

8880 

SERROUT 

80A0 

SFOIV 

88BA 

FEHLMTAB 

80B5 

SFAGASG 

88BB 

FEHLMTAB+1 

80BE 

SGETVAR 

8804 

FNOOY 

8007 

STESTOIRM 

8912 

TABJOY 

8000 

SGLROH 

891A 

FNPOT 
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893A 

FNPENX 

9297 

PUNKT 

8943 

FNPENY 

9330 

GBITTABS 

894E 

PENABFR 

9340 

GBITTABL 

896A 

TRACEl 

9350 

BEFLINE 

8998 

TRSHIFT 

9359 

GETXYXYF 

89E2 

TRACESHOW 

9370 

GETPKTF 

89E9 

TRACESHl 

9383 

FARBSET 

8A3A 

WEISSECK 

9300 

BEFLOWOOI. 

8A61 

SIRQPLAY 

9406 

KERROMAUS 

8ADE 

PLAYENO 

940E 

KERROMEIN 

8BA1 

NOTESUCH 

9415 

SSGETAOR 

8BDE 

NOTENTAB 

9415 

SGETA0R2 

8BF2 

FRQTABL 

9427 

SGETAOR 

8C06 

FRQTABH 

9420 

GAORTABL 

8C1A 

STIMMEIN 

9446 

GAORTABH 

8C41 

MOBEXS 

945F 

A4MAL40 

8C4E 

MOBEYS 

9489 

BEFOIROLE 

8C5B 

MOBEXL 

94CE 

20PL40 

8C68 

MOBEYL 

9400 

23PL40 

8C75 

GETBYTC 

94EA 

BEFMULTI 

8C7B 

SGETSTRl 

9537 

BEFOOLOUR 

8C8D 

SGETARI 

9546 

BEFOIR 

8CAB 

CHHEXCHR 

9508 

BEFMMOB 

8CC3 

GETBIN 

9625 

MOBPOSS 

8CCD 

SXYFLP 

9669 

BEFBFLASH 

8CD7 

GETHEX 

9694 

SIRQ 

8CE0 

HEXCON 

960A 

BEFMOBSET 

8D28 

HEX2W 

9759 

BEFMUSIO 

8D3C 

HEXW 

9778 

MBITTABS 

8D46 

FNEXOR 

9780 

MBITTABL 

8069 

FNOUP 

9788 

BITWTAB 

8DFC 

FNFRAC 

9790 

BEFFLASH 

8E4F 

FNPLACE 

97B7 

FNAT 

8EB3 

FNINSERT 

9702 

SIRQ2 

8F45 

lOIV 

9836 

BEFPAGE 

8F8E 

FNOIV 

9850 

SIRQ3 

8FBC 

FNMOO 

9892 

SHWERTTAB 

8FEA 

FNLIN 

9896 

SIRQ4 

8FFC 

FNTEST 

98FF 

SIRQ5 

9033 

FNINST 

9918 

BEFPLAY 

90A8 

FNINKEY 

9947 

BEFGENTRE 

90CC 

FNGRAPHICS 

9979 

BEFENVELOPE 

90DA 

FNSOUNO 

9900 

GET2NYB 

90EF 

FNCHECK 

99E8 

BEFOGOTO 

9146 

FNERR 

99F7 

BEFWAVE 

9158 

FNERRLN 

9A09 

BINGON 

9160 

FNERRN 

9A54 

SIOTAB 

9174 

BEFO 

9A5A 

OSGBMOUT 

917A 

SBASBEF 

9A6A 

XNYB 

91FF 

BEFHIRES 

9A6F 

X123 

9267 

BEF PLOT 

9AAB 

GBITSET 
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9AB4 

GBITCLR 

A2F4 

BEFLOCAL 

9AE9 

INCA6A7 

A33C 

BEFGLOBAL 

9AF0 

INCA8A9 

A35E 

LINZEI 

9AF7 

BEFREPEAT 

A3AC 

MOBBEWEG 

9B15 

BEFUNTIL 

A50C 

YNEXT 

9B48 

BEFRETRACE 

A594 

BEFEIND 

9B5A 

BEFTRACE 

A616 

VGLAE 

9B63 

BEFOPTION 

A62E 

BEFDESIGN 

9B6C 

BEFIF 

A6FE 

UEBER4 

9BB6 

BEFAUTO 

A70A 

DESTAB3 

9C05 

BEFRESET 

A712 

DESTAB2 

9C2A 

BEFCALL 

A71A 

DESTABl 

9C39 

SUCHCODE 

A768 

BEFRLOCM 

9C60 

SUCHCODEN 

A7A6 

BEFCMOB 

9CBC 

INC$20 

A7B5 

BEFBCKGNDS 

9CE3 

BEFEXEC 

A7E2 

BEFPAUSE 

9D19 

BEFENDPROC 

A831 

BEFNRM 

9D37 

BEFEXIT 

A837 

NRM 

9D6F 

BEFENDLOOP 

A856 

BEFMOBOFF 

9D89 

BEFONKEY 

A865 

BEFOFF 

9BB2 

BEFDISABLE 

A876 

BEFARC 

9DBA 

ONKEYl 

A88D 

ARCl 

9E0F 

BEFRESUME 

A914 

KREIS 

9E24 

BEFLOOP 

A94F 

KREISl 

9E42 

BEFDELAY 

AAOl 

SINMALKRX 

9E4B 

BEFSECURE 

AAIF 

COSMALKRY 

9E6E 

BEFONERR 

AA3D 

A8A9B0GM 

9E94 

BEFNOERR 

AA71 

PKBER 

9E9C 

SWARM 

AA97 

KMXPLUS 

9ED1 

BEFOUT 

AAA7 

KMYPLUS 

9EDA 

BEFOLD 

AABO 

KMXMINUS 

9F1F 

BEFRCOMP 

AAC8 

KMYMINUS 

9F30 

BEFPROC 

AAD7 

A8A9DIV90 

9F3F 

BEFDUMP 

ABIO 

BEFANGL 

A002 

BNMIVEC 

AB79 

ZEIUMWl 

A02B 

OUTASC 

AC5D 

MOVEBEF 

A039 

INC$20 

AC8D 

GETRCWD 

A040 

OUT= 

ACB5 

MOVEZ 

A045 

CHARENl 

AD8D 

MOVEUL 

A04C 

CHARENO 

AEC6 

MOVEDR 

A057 

BEFDRAW 

AEF7 

CHKKLZ 

AUE 

TABROT 

AEFA 

CHKKLA 

A15E 

BEFROT 

AEFÜ 

CHKCOM 

A186 

BEFCHAR 

B004 

BEFFETCH 

A1B4 

CHARZEI 

B053 

FEI CHT 

A261 

PTESTl 

B15B 

FETCHTAB 

A270 

BEFHICOL 

B170 

RVSBLANK 

A278 

FILLBER 

B18F 

BEFSCRSV 

A297 

BEFFILL 

BIDC 

BEFSCRLD 

A2D0 

BEFFCHR 

B229 

BEFTEXT 

A2E2 

BEFFCOL 

B30D 

BEFCSET 



Kommentiertes Assembler-Listing 


293 


B33F 

BEFVOL 

C57C 

DREHSINN 

B35D 

BEFDISK 

C57D 

ZWSPEIl 

B393 

BEFUSE 

C586 

ZN 

B47D 

NEUSTR 

C587 

ZN + 1 

B49B 

MERKZEI 

C58B 

PSPEINMI 

B4A0 

BEFHRDCPY 

C58C 

PAGEFLAG 

B4CA 

PUSHSTR 

C58D 

PAGEWERT 

B590 

BEFKEY 

C596 

PORTSPEI 

B5E8 

BEFPAINT 

C597 

AX;PROCNFFL 

B96E 

TABSAUBER 

C598 

AX + 1 

B975 

TABSAUBERl 

C599 

MFREQ 

B9BA 

TESTFREI 

C59A 

MFREQ+1 

B9D7 

MERKEPKT 

C59F 

YDIFF 

B9F1 

BEFCOPY 

C5A0 

YDIFF+1 

BAF7 

BEFREC 

C5A1 

DIFFV 

BC6E 

BEFBLOCK 

C5A2 

DIFFV+1 

BC77 

BLOCKZEI 

C5A3 

DRY 

BDAA 

DSCBMOUTl 

C5A6 

XDIFF 

BDAD 

BEFMEM 

C5A7 

XDIFF+1 

BDF7 

BEFDETECT 

C5A8 

EY 

BE06 

TEXTKEY 

C5A9 

EY + 1 

BEOA 

TEXTCHR 

C5AA 

EX 

BE13 

BEFDISPLAY 

C5AB 

EX + 1 

BECB 

SLIST3 

C5AC 

AY 

BFBB 

ENDE 

C5AD 

AY + 1 

C500 

LPX 

C5AE 

GFLAG 

C501 

LPY 

C5B0 

MULTION 

C502 

ROTGR 

C5B1 

AUTOINC 

C503 

DRGRZ 

C5B2 

AUTOFLAG 

C504 

FLASHFLS 

C5B3 

GMEMFLAG 

C514 

DETECTERG 

C5B4 

MOBBEW 

C515 

DETECTART 

C5B5 

MOBSPEED 

C516 

ZAEIRQ 

C5BB 

M0BNR2 

C517 

ZAESEC 

C5BC 

MOBNR 

C518 

STRZl 

C5C4 

FLASHSP 

C519 

STRZ2 

C5C5 

FLASHZAE 

C51A 

VGLE 

C5C6 

FLASHFL 

C51B 

VGLE+1 

C5CB 

IFFLAG 

C51D 

ERRLN 

C5D5 

LCODE 

C51E 

ERRLN+1 

C5D6 

INKEY 

C51F 

POS 

C5D7 

BFLASHSP 

C520 

POSl 

C5D8 

BFLZAE 

C523 

VGLA 

C5D9 

BFLASHFl 

C524 

VGLA+1 

C5DA 

BFLASHF2 

C52B 

HILFFLl 

C5DB 

BFLASHON 

C52C 

HILFFLAG 

C5DC 

OPTFLAG 

C52D 

XMAXLOW 

C5DD 

PENDFLAG 

C52E 

XMAXHIGH 

C5E2 

COPBYTE 

C52F 

UEBERDREH 

C5E4 

CODEZAE 

C531 

TRACETAB 

C5E6 

COPZAEY 

C555 

TRACETAB+36 

C5E8 

ONKEYZEIG 
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C5E9 

ONKEYZEIG+1 

CB65 

DRINCX 

C5EA 

ONKEYFLAG 

CB69 

DRINCY 

C5EC 

KEYON 

CB6D 

DRX 

C5F0 

BASBZK 

CB6E 

DRX+1;CHGR 

C5F1 

BASBZK+1 

CB6F 

FETCHANZ 

C5F8 

DELAY 

CB70 

DOYWERT 

C5F9 

ONERRZEIG 

CB71 

ZWISP4 

C5FA 

ONERRZEIG+1 

CB72 

FETCHLEN 

C5FB 

ONERRORFLAG 

CB76 

ZEILEANF 

C5FC 

ERRN 

CB77 

SPALTEANF 

C601 

TRACEFLAG 

CB78 

SPALTENANZ 

C603 

STACKREPEAT 

CB79 

ZEILENANZ 

C617 

SPREPEAT 

CB7A 

ZAEHLER 

C618 

STACKEXEC 

CB7C 

RICHTZ 

C62C 

SPEXEC 

CB7E 

ZAEHLMl 

C62D 

STACKLOOP 

CB80 

ZAEHLM2 

C641 

SPLOOP 

CB82 

BWFLAG 

C642 

LASTKEY 

CB84 

ZWISP3 

C646 

KEYFLAG 

CB86 

MUSICZ2 

C64A 

WAVETAB 

CBS 8 

MUSICZ3 

C64D 

KEYTAB 

CB8A 

MUSICZ4 

C751 

PXHTAB 

CB8C 

MREGADR 

C752 

PXHTAB+1 

CB8D 

MREGADR+1 

C850 

PXLTAB 

CB91 

PLAYFLAG 

C851 

PXLTAB+1 

CB 96 

MUSICDAU 

C94F 

PYTAB 

CB9B 

MUSICADR 

C950 

PYTAB+1 

CB9C 

MUSICADR+1 

CA4E 

PZEIG 

CB9D 

MUSICZl 

CA4F 

PYMERK 

CB9E 

MUSICLEN 

CA50 

PYALT 

CB9F 

MUSICZ5 

CA51 

PAKTY 

CBAO 

SRTAB 

CA52 

FLAGl 

CBA4 

ADTAB 

CA53 

LOCALTAB 

CBA8 

STIMMENR 

CBIB 

LCFARB12 

CBAB 

STRl 

CBIC 

LCFARB3 

CBAC 

STRl+1 

CBID 

LOWCOLFLAG 

CBAE 

DWERT 

CBIE 

MOVETAB 

CB Bl 

PLPOS 

CB48 

KRX 

CBB4 

STRLEN2 

CB49 

KMY 

CBB7 

STRLENl 

CB4A 

KMY + 1 

CBBB 

IDIVSOR 

CB4B 

KMX 

CBBC 

IDIVSOR+1 

CB4C 

KMX + 1 

CBCO 

IDIVDEND 

CB4D 

WINKSW;SCHRART 

CBCl 

IDIVDEND+1 

CB4E 

WINKSW+1 

CBC2 

IDIVREST 

CB4F 

DRSTRZ 

CBC3 

IDIVREST+1 

CB50 

DRSTATUS 

CBC5 

KRY 

CB51 

DRYANF 

DO 00 

VICMX 

CB54 

ZWISP2 

DOOl 

VICMY 

CB59 

DRAWTABX 

DO 10 

VICMX8 

CB5D 

DRAWTABY 

DOll 

VICSTl 

CB61 

DRRICHT 

D013 

VICLPX 
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DO 14 

VICLPY 

DC02 

CIAIDDRA 

D015 

VICMEA 

DDOO 

CIA2PRA 

DO 16 

VICST2 

DDOD 

CIA2ICR 

D017 

VICMEY 

E0F9 

KERERRB 

D018 

VICADS 

E386 

WARM 

D019 

VICIRQF 

EA31 

BIRQ 

DOIA 

VICIRQM 

FFBA 

SETFPAR 

DOIB 

VICMPR 

FFBD 

SETFNPAR 

DOlC 

VICMMC 

FFCO 

OPEN 

DOID 

VICMEX 

FFC3 

CLOSE 

D020 

VICRAFAR 

FFC6 

CHKIN 

D021 

VICHIFAR 

FFC9 

CHKOUT 

D025 

VICMMCl 

FFCC 

CLRCH 

D026 

VICMMC2 

FFCF 

BASIN 

D027 

VICMFA 

FFD2 

BSOUT 

DCOO 

CIAIPRA 

FFE4 

GEHN 

DCOl 

CIAIPRB 




6.4 Die vlchtlgsten Zero-Page-Adressen 


Hier werden nur die wichtigsten Belegungen der Zero-Page- 
Adressen aufgeführt, und auch nur die, die sich in der 
Anwendung wesentlich vom normalen Basic unterscheiden. 

Allgemeine Hilfszellen: 


Adresse 


Bedeutung 


$09,$0A 
$20 bis $24 
$63,$62 
$69 

$A4 bis $AB 


HiIfsze iger 

diverse Zeiger und Zwischenspeicher 

Low- und High-Byte zur Umwandlung mit SXFLP 

Stringlänge nach SGETSTR 

diverse Zeiger und Zwischenspeicher 


Spezielle Hilfszellen / Parameter: 


Adresse 


Bedeutung 


für Routine 


$09,$0A 
$ 20,$21 
$21 
$22 

$57 bis 
$5F,$60 
$5F 
$61 
$62 
$65 


X-Koordinate 

Adresse, wo Code gefunden 
Flag für mehrere Punkte berechn, 
zu suchender Code 
$5E acht (2*4) Umgebungsflags 
akt. X-Koordinate 
Stringlänge 
akt. Y-Koordinate 
Fertig-Flag 
Stapelzeiger 


PUNKT 

SUCHCODE 

KREIS 

SUCHCODE 

PAINT 

PAINT,COPY 

DRAW 

PAINT,COPY 

PAINT 

PAINT 
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$66 

FülIcode 

FILL,FCHR,FCOL 

$66 

Sollfarbe 

PAINT 

$6A 

Zähler 

CENTRE (u.a.) 

$6A 

Farbe des letzten Nachbarn 

PAINT 

$90 

Status (Erg. von TEST, bzw. 8) 

PUNKT 

$A4 

Y-Koordinate 

PUNKT 

$A6 

Flag, ob Farb-RAM gemeint ist 

FILL,FCHR,FCOL 

$A8,$A9 

Adresse im Grafik-RAM 

PUNKT 

$A8,$A9 

Startwinke 1 

KREIS 

$A8 

Sammelbyte 

DESIGN 

$AA 

Wertepaar (2 Werte bis 15) 

GET2NYB 

$AC,$AD 

Endwinkel 

KREIS 

$AC 

akt. Farbkombination 

HIRES 

$F7 

Punktfarbe 

Grafik-Befehle 

$FC,$FD 

Adresse Music-String 

SIRQPLAY 

$FE,$FF 

Basis-Adresse f. Stimmregister 

SIRQPLAY 
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Anhang 1 ; RAKETE 3 - Beispiel aus Band 3 

10 IFL=0THEHL=1 ^ LÜRD"BRSERW3. ÜB J" S. 1 
20 IFL=1THEHL=2:LORD"GRR3.OBJ 'S 8. 1 
30 IFL=2THEHL=3:L0RD"PRIJ3E.0BJ".3.. 1 
40 IFL=3THEHL=4: LORD"3riO''/E. OBJ"/8. 1 
50 S't'S51200 
60 L=0 

100 REM 

101 REM # R R K E T E / S P R I T E S * 

102 REM 

110 POKE53280.6 
120 P0KE53281.6 
130 V=53248 
140 DIMH$<7) 

150 POKEV+3?.14 
160 POKEV+38.0 
997 REM 

993 REM * DRTR3 FUER SPRITE 0 * 

999 REM 

1000 DRTR0.20.0.0.20.0.0.20.0 
1010 DRTfi0.150.0.0.150.0.0.150.0 
1020 DRTR0.150.0.0.150.0.48.150.12 

1030 DRTR48.150.12.50.150.140.58.150.172 
1040 DRTR58.150.172.58.150.172.186.150.174 
1050 DRTR186.150.174.186.150.174.186.150.174 
1060 DRTRl.20.64.1.20.64.1.20.64 

1097 REM 

1098 REM * DRTRS FUER SPRITE 1 * 

1099 REM 

1100 DRTR12.0.48.12.0.48.12.0.48 
1110 DRTR12.0.48.12.0.48.12.0.48 
1120 DRTR12.0.43.12.0.48.12.0.43 
1130 DRTR12.0.48.12.0.48.12.0.48 
1140 DRTR12.0.48.12.0.48.12.0.48 
1150 DRTR12.0.48.12.0.48.12.0.48 
1160 DRTR12.0.48.12.0.48.12.0.48 

1197 REM 

1198 REM * DRTRS FUER SPRITE 2 * 

1199 REM 

1200 DRTR192.0.3.192.0.3.192.0.3 
1210 DRTR192.0.3.192.0.3.192.0.3 
1220 DRTR192.0.3.192.24.3.192.60.3 

1230 DRTR192.102.3.255.231.255.192.102.3 
1240 DRTR192.60.3.192.24.3.192.0.3 
1250 DRTR192.0.3.192.0.3.192.0.3 
1260 DRTR192.0.3.192.0.3.192.0.3 
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1997 REM 

1998 REM * SPRITE Q VORBESETZEH * 

1999 REM ♦♦.*#*#**if#*#;<«**#*#*#**if.#***4!*4!*i^***#*if*i^* 

2000 POKEV+21,5 
2010 POK.E2040. 13 
2020 FÜRI=1T063 


2030 REfiDPU 

2040 P0KE831+I.PU 

2050 HEXT 

2052 X=30 

2054 V=50 

2060 SPRITE.0/X..V 

2070 GRENZEN.0.20.50.320.230.0 

2080 POKEV+39.7 

2090 PÜKEV+2S.1 

2097 REM ***it!**#»*#****m************************ 

2098 REM * SPRITE 1 VORBESETZEH * 

2099 REM ******#*#***4!*4!***m****;<«***».if4;<«*****#** 

2100 POKE2041.14 
2110 F0RI=1T063 
2120 REfiDPU 

2130 P0KE895+I.PU 

2135 HEXT 

2140 Xl=100 

2150 VI=100 

2160 SPRITE.1.XI.Vl 

2170 GRENZEN. 1.20.50.3J20. 230.0 

2180 POKEV+40.5 

2197 REM iti*****iti*äf**»:i*****#**m*#***»****#**#*** 

2198 REM * SPRITE 2 VORBESETZEH * 

2199 REM ***************************************** 

2200 PUKE2042.'15 
2210 F0RI=1T063 
2220 REfiDPU 


2230 P0KE959+I.PU 


35 

HEXT 



40 

X2=200*RND( 

-TI 

> +1010 

50 

V2=150*RND':; 

-TI 

> +1 00 

60 

SPRITE.2.X2 

. V2 



2270 REM GRENZEN.2.10.20.330.190.15 

2271 GRENZEN.2.10.20.330.100.15 
2280 POKEV+41.1 

2997 REM #**#****#**##****#*♦+♦***##*****#*#***#*# 

2998 REM * BEWEGUNGSRBLflUF * 

2999 REM ***************************************** 


3000 PR INT "IT" 

3005 G=125 

3006 FfiHRT.2.150.45 
3010 GETB$ 

3014 REM ZH=ZH+1:IFZH>5THENGOSUE6000 
3016 IFPEEK'::V+30><:>0THENGOSUE7000 
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3018 IF L==l RNIi PEEK';;V+31><>e THEH GOSUB 853Ü 
3013 IF L=1 HMD PEEK';v::'>233 RHU PEEK';:V;'<:242 AMD 

PEEK < V+1)>1SOTHER GOSUESOSO 

3020 IFE$^-^""TI-IEM3O10 

3030 I FE$^" S" THEH ^ FAHRT.. 8ü0 ^ GOTO3010 
3040 I"E"THEH-FAHRT3 0,.G,. 0: GOTO3010 
3050 IFE$="E"THEH : FFlHRTG 0.. G.. 45 : GüTO3010 
3060 IFEf="U"THEH:FAHRT.0.G.50:GOTO3010 
3070 IFB:f-"Q"THEH-FAHRT..0..G.. 135:GOTÜ3010 
3030 IFE#="H"THEH : FAHRT,. 0. G,. ISO ^ GOTG3010 
3050 IFB$="Z"THEN FAHRT. O. G..225 ■ GOTO3010 
3100 I FE$ ==" X " THEH : FAHRT0. G270: GOTu3010 
3110 I FE$=" C " THEH : FAHRT. OG. 315 ^ GÜTO3019 
3120 IFE$="t"THENGOSUE5000 ^ GOTO3010 
313:0 I FEf ==" M " THEHPOKEV+215 : GÜTO3010 

3135 IFEt =" G " THENGOSLIE3500: GOTO3010 

3136 IFE$="L"THEHGG3UE8030 

3138 IFE:f =" V " OREI: =" K" THEHGGSUB550O 
3140 GOTO3010 

3500 GETRiT : IFRf=" "THEM:3500 
3510 A=VRL(R$::' 

3520 IFA-C1THEH3500 
3530 G=Ai+i50 
3540 RETURN 

:3957 REH ***************************************** 
3958 REH * SPRITE O EENEGEH * 

3599 REH ***************************************** 

4000 I FSTHEHG0:3UE5100 
4005 IFX<;0THEHX=0: GOTO4030 
4010 IFX>255THENX=255■GÜTO4030 
4020 PÜKEV..X 

4030 IFV<0THEHV=0:RETURN 
4040 IFV>200THENV=200:RETURN 
4050 P0KEV+1..V 
4060 RETURN 

4997 REH ***************************************** 

4998 REH * SPRITE 1 BENEGEN * 

4999 REH ***************************************** 

5000 POKEV+21/7 

5010 S=PEEK(V > +256* v PEEK < V+16 > RNB1) 

5020 SPRITE. 13. PEEK (V+1 > 

5030 FAHRT.1.500.90 
5040 RETURN 
5200 S=0 
5210 POKEV+21.5 
5220 RETURN 

5997 REH ***************************************** 

5998 REH * SPRITE 2 BENEGEH * 

5999 REH ***************************************** 

6000 RETURN 

6010 FAHRT .2.100+100*RHri (2 >. 360*RNri < 1 > 
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6040 Zfl=0 
6099 RETURN 

6997 REN *******##*####♦******#**#**#♦#**#****#*#* 
6993 REM * KOLLISIOHSPRUEFUHG * 

6999 REN **if*i+i***if*i+i*#i+iif************##***i^***#*i^** 

7000 KÜ=PEEK<V+30> 

7005 IFKQ=3THENRETIJRH 
7010 IFKO=6THEH7100 
7020 IFKO=5THEH7200 
7030 RETURN 

7097 REN #******#**4!***#;<«#if#****;<«J|f*#*if****#**i+i**** 

7098 REN * SPRITE 1 GETROFFEN * 

7099 REN $*#**#***#*****#*#*#****♦*»***♦*****#**#;<« 

7100 FÜRF=0TO15:FORWR=1TÜ15 
7105 FOKEV+21.5 

7110 PÜKEV+41..F 
7120 NEXTNJEXT 
7130 POKEV+21.1 
7140 S=0 
7150 RETURN 

7197 REN 'If^JH*************##*#*#***#******#**#**#*# 

7198 REN * SPRITE 2 GETROFFEN * 

7199 REN ***************************************** 

7200 FORF=0TO15:FORWR=1TO15 
7210 P0KE'v'+41.F 

7220 P0l<EV+39. 15- F 
7230 NEKT ■ NE>^T 
7235 PÜKEV+39.7 

7237 N=N-i-50 

7238 V=V+50 
7240 RETURN 

8000 REM ***#*iti******#**#**#***************F**il^*** 

3010 REN * LRNnUNG * 

8020 REN 

8030 Hf(l> = " Ef”^ " 

S040 HT'::2>=^="Sr 1 S ^ ” 

8050 H$':;3)-"a ■ a ■ " 

8060 H$(4)="a 1 " 

3070 HT(5>--"^a W " 

3080 H:f':.6>-" ’^ia W " 

3090 H$(7>:=" ’^a ST 

3100 POKE V-K21.. 1 

3110 REM ..— RRKETE GEGEN GRENZEN ERHREM - 

3120 GRENZEN,. 0,. 20.. 50.. 200/ 230 ■ 0 
8130 FAHRT/0/G/45 

3140 REM .. BASIS IN BILD SCMIEEEN -.----- 

3150 F0RI-=1T025 
3160 PRIMT":r/ 

3170 H14=H1$-!-" " 

313 0 F RI! IT " ''.: 

3190 rORJ=^lTij7 
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oüuu r P. 1 n I n 1 + V .j 

3210 HEXT 

3220 REM - LflEHGER NERHEHHE UHRTESCHLEIFE - 

3230 FÜRJ=1TÜ30*I 
8240 HEXT 
3250 HEXT 

8260 REM-RHFLUG'v'ÜREEREITUHG - 

3270 FfiHRT..0.. 0.0 
3230 L~1 


3290 GREHZEH. 0. 20.50320.. 230.0 
3300 RETURH 
3500 REM 

3510 REM * EEHRHDLUHG MI3SGLUECKTE LRHEUHG * 
3520 REM #***#******#***#*****;<<#****************** 
3530 FRHRT.0.. 0.0 

3540 REM - ELIHKEH SPRITE / ERSIS - 

3550 FÜRI=1TÜ10 
3560 POKEV+39.1 
3570 PRIHT"!".; 

3530 PR IHT " ; 

3590 FÜR.J=1TÜ7 

3600 prihthi$.;h$c.t:;' 

3610 HEXT 
3620 PÜKEV+39.0 
8630 PRIHT" 

3640 PR I HT"; 

8650 FÜRJ=1TÜ7 
3660 PRIHTH1$.;HI:(:J> 

3670 HEXT 

3630 hex:t 

3690 REM - RESCHLUSSEEHRHDLUHG - 

3700 L=0 
3710 PÜKEV+31.0 
3720 PRIHT "ZI 
3730 POKEV+21.0 

8740 PRIHT":i««fiD!iroii!!l?W LRHDUHG MISSGLÜECKT 

8750 FORI=1TO2000 

3760 HEXT 

3770 P0KEV+21j5 

8730 POKEV+39.7 

3790 PRIHT"Z] 

3300 Hl$="" 

3310 RETURH 
9000 REM 

9010 REM * EEHRHELUHG ERFOLGREICHE LRHEUHG M 
9020 REM 
9030 L=0 

9040 FRHRT.0. 0. 0 

9050 PRIHT"iafli!M«BI«fl^ I1.RHDUHG ERFOLGREICH 

9060 FORI=1TO2000 
9070 HEXT 
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Pi;iKEV+21..5 
Hl$:="" 

PF;INT‘‘n 

RETURN 

VK=0 

GETR$ 

IFFl$=""THEN3510 

IFfl$=:":>i;"THEH'v'K=V+29 

IFflf=''V''THEI'fv'K=V+23 

IFVK>=0THEN9510 

GETR$ 

IFfi$=""THEN9560 

n=VflL(fl|:) 

IFfl<lORfi>8THEH9560 

KV=2t':;R-l) 

ifb$="V"thehpokevk.peek<vk;' or kv 

IFE$="K"THEHPOKEVK.PEEK';VK> RHD NOT KV 
RET'URH 
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Anhang 2 : BALKEN 3 - Beispiel aus Band 3 


1000 REM **»l:**************^^*****^***+******>H********i+i**** 

1010 REM * E R L K E M 3 * 

1020 REM ******************:♦:♦**************************** 

1030 I FL=0THEHL= 1 LORD" BRSERW3. OBJ". 81 

1040 IFL==iTHEHL=^2:L0RD"GRH3.0EJ",.S.. 1 

1050 1FL=2THEHL=3:L0mD"FRÜ3E.0EJ",.S. 1 

1060 I FL=3THEHL=--4 : LORD" GRRLM. OBJ " ..8.1 

1070 SVci51200 

1080 POKE53280,. 11 

1030 P0KE532S1.. 11 

1100 ’v-53243 

2000 REM ************************************************ 
2010 REM * DRTEH ERFfiSSEH UND VORDERE I TEN ♦ 

2020 REM 4:*****#*i+ii|^****#**#*****i+i4ii+;#*##******i+i**if**if#**** 

2030 IlPUT''W:iHZRHL DER ERLKEN'VRB 
2040 DIMNE'::RE.. 3> 

2050 DIMH0(RE23> 

2060 REN- WERTE DER BRLKEH ERFRSSEH - 

2070 FOR1 = 1 TÜRE 
2080 F0RJ=1TÜ3 

2030 PRIHTI;"TER BRLKEH ".;J."-TER EINTRRG".; 

2100 INPUTWEd.. J) 

2110 WBa.0>=uE(i.0;'+wBa. j:' 

2120 HEXT 
2130 HEXT 

2140 REH- MRXIMUH BESTIMMEN - 


2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2230 

2300 

2310 

2320 

2330 

2340 

30061 

3010 

3020 


FÜRI=1T0RB 

IFWB (1.0;' >MRTHEHMR=WB (1.0 ;■ 

HEXT 

REM- GRRFISGHE RUSGRBEDRTEN ERFRSSEH 

IHPIJT"RBSTRND 
IHFUT"BREITE 
IHPIJT"GRUHDZEILE 
IMPIJT"MRXINRLE HOEHE (ZEILE) 

IHPIJT"ERHÜEHIJHG 
IHPIJT"EEGIHH IM SPRLTE 

REM- ERLKEHHÜEHEH HÜRMIEREH - 

F0RI=1TÜRB 

HO (1.0 ;■ = IHT ( WB ( 1.0 ) * ( GZ-MH-EH* (I 
HEXT 

REM- GROESSE DER TEILERLKEH BESTIMMEN - 

F0RI=1T0RB 

F0RJ=1T03 

HÜ(I.J)=HÜ(I.0)*WE(I.J)/WB(I.0> 

HEXT 

HEXT 

REN 

REM * RUSGREE DER BRLKEH * 

REM 


R 

ER 

GZ 

NH 

EH 

BS 


RE-l))/MR+.5> 
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3030 GREIH ^ 7 ^1^3 
3040 UX=BS-R 
3050 FURI=lT0flB 
3060 ox=u:--:+R 
3070 UX—UX+BR 

3080 0V=GZ-Hi;i (1.1 ;■ --EH* (I -1 > 

3090 IJV=GZ-EH*a-i::' 

3100 BLOCK1OX. OV.. UX.. UV 

3110 OV=GZ~HO I; 1 > -HO 1.2 > -EH* CI -1 > 

3120 LIV=GZ-HO i 1.1 :■ -EH* a -1 > 

3130 BL0CK..2.0X.0V..UX,UV 

3140 0't'=GZ-H0 CI.. 1 -HO C 1.2 > -HO C1.3:? -EH* C I -1 > 
3150 UV=GZ-HO C 1, 1 -HO C 1.2 > -EH* CI -1 
3160 BLOCK.3,OX.0V.UX.UV 
3170 NEXT 

3180 GETR$:IFR$=""THEH31S0 
3190 GRRUS 
3200 EHIi 

60000 SRVE" 0 ERLKEN " . 8 
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Anhang 3 : Oberalcht Paraaetertypen: 

A - Ausgabeparameter von diesem Unterprogramm 
E - Eingabeparameter für dieses Unterprogramm 
G - Globale Variable 
H - Hilfsvariable 

P - Aufruf Parameter an Unterprogramm 
R - Rückgabeparameter von Unterprogramm 
T - Transienter Parameter (ist in einem Unterprogramm 
gleichzeitig Eingabeparameter (E) und Aufrufpara¬ 
meter (P) bzw. A und R 

Globale Variablen gibt es zwar bei Basic nicht, da Basic 
keine block-orientierte Sprache wie z.B. PL/1 ist, aber in 
diesem Buch ist dieser Begriff für Variablen verwendet 
worden, die man in anderen Sprachen global definiert 
hätte. 


Da der verwendete Typenraddrucker die Zeichen 'größer als' 
und 'kleiner als' nicht drucken kann, wurden diese Zeichen 
wie folgt ersetzt: 

NE - Not Equal / ungleich 

GT - Greater Than / größer als 

LT - Less Than / kleiner als 

GE - Greater or Equal / größer gleich 

LE - Less or Equal / kleiner gleich 


Die in den Kapiteln angegebenen Zeilenbereiche können mit 
denen der abgedruckten Listings differieren, weil offen¬ 
sichtliche REM-Zeilen (in der Regel die Überschriften von 
Unterprogrammen) nicht mitgedruckt wurden. 
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Anhang 4 : Oberaicht der Blldachlrncodea 


B ILOSCHIRNSTEUERCODES 


ZE ICHEH CijDE 

CURSOR HHCH UHTEH H 
CURSOR HRCH OBEH 3 
CURSOR HRCH RECHTS U 
CURSOR HRCH LINKS II 
DEL ^ZEl. LOESCHEhO U 
HOME CCRSR OBEN LINK:s:> 9 
CLR BILDSCHIRM LOESCHEN> Z] 
REVERSE EIN d 
REVERSE RUS ■ 
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Anhang 5 : Befehlsübersicht «it Parameter 


- : kein Parameter; 

vor den Parametern bedeutet Funktion 


Programmierhilfen; 


AUTO 

COLO 

DELAY 

DISAPA 

DISPLAY 

DUMP 

FIND 

KEY 

MERGE 

OLD 

OPTION 

PAGE 

RENUMBER 

RETRACE 

SECURE 

TRAGE 


Sta rtnummer,Sehrittwe ite 
Listgeschwindigkeit (1-255) 


Basic-Code oder Zeichenreihe 
Nummer,‘Befehl' 

■Programmname“,Gerätenummer 

10 (Ein) ; OPTION andere Zahl (Aus) 

Anzahl der Zeilen - 1 

erste Zeilennummer,Sehrittweite 

0 

10 (Ein); Trace 0 (Aus) 


Struktur-Befehle und ERROR-Befehle: 


CALL Marke (Label) 

CGOTO (Zeilennummer) 

DISABLE 
END PROC 

ERRLN * - 

ERRN * - 

EXEC Marke (Label) 

GLOBAL 

IF...THEN...: ELSE : - 

LOCAL Variable 1,Variable 2,Variable 

LOOP...EXIT IF 
...END LOOP 
NO ERROR 
ON ERROR 

ON KEY Zeichenreihe,Anweisungen 

OUT 

PROC Marke (Label) 

RCOMP...ELSE 
REPEAT...UNTIL 
RESUME 


3, 
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Grafik-Befehle 

Die verwendeten Abkürzungen haben folgende Be¬ 
deutung : 

KMX - X-Koordinate Kreismittelpunkt 

KMY - Y-Koordinate Kreismittelpunkt 

RX - Radius in X-Richtung 

RY - Radius in Y-Richtung 

EWI - Endwinkel 

SWI - Startwinkel 

WI - Winkel 

XI - X-Koordinate oben/Anfang 
X2 - X-Koordinate unten/Ende 
Y1 - Y-Koordinate oben/Anfang 
Y2 - Y-Koordinate unten/Ende 
ZF - Zeichenfarbe 

ANGL KMX,KMY,WI,RX,RY,ZF 

ARG KMX,KMY,SWI,EWI,Abstand,RX,RY,ZF 

BLOCK X1,Y1,X2,Y2,ZF 

CHAR XI,Y1,BiIdschirmcode,ZF,Größe 

CIRCLE KMX,KMY,RX,RY,ZF 

CSET n (0,1,2) 

DRAW Zeichenreihe,XI,Yl,ZF oder Variable,X1,Y1 ,ZF 

GRAPHICS *- 

HICOL 

HIRES Punktfarbe,Hintergrundfarbe 

LINE X1,Y1,X2,Y2,ZF 

LOW COL Farbe 1,Farbe 2,Farbe 3 

MULTI Farbe 1,Farbe 2,Farbe 3 

PAINT X1,Y1,ZF 

PLOT X1,Y1,ZF 

REC Xl,Yl,X2,X2sZF 

ROT Drehwinke1,Größe 

FEST * Variable = TEST(X1,Y1) 

TEXT Xl,Yl,“Text”,ZF,Größe,Abstand 


Sprlte-Befehle; 

Die verwendeten Abkürzungen haben folgende Be¬ 
deutung : 

G - Geschwindigkeit (1...255) 

NR - MOB-Nummer, Sprite-Nummer 
SX - Startkoordinate X 
SY - Startkoordinate Y 
ZX - Zielkoordinate X 
ZY - Zielkoordinate Y 
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(Klammeraffe) erlaubt sind: 'AB‘C‘D' ' 

CHECK * (NR) oder (NR1,NR2) 

CMOB Farbe 1,Farbe 2 

DESIGN 0 (norm.) oder 1 (MCM),Speicheranfangsadresse 
ÜETECT 0 (MOB/MOB) oder 1 (MOB/Hintergrund) 

MMOB NR,SX,SY,ZX,ZY,Größe,G 

MOB OFF NR 

MOB SET NR,Block(Farbe,Priorität,Auflösung 

RLOCMOB NR,ZX,ZY,Größe,G 


Musik-Befehle: 

ENVELOPE Stimme,At tack,Oecay,Sustain,Re lease 

MUSIC Tondauer,“Noten" 

PLAY n (0,1,2) 

SOUND * - 

VOL n (0...15) 

WAVE Stimme,Wellenform 


Befehle für Zeichenreihen 

AT * : PRINT AT(SpaIte,Zeile)Zeichenreihe 

CENTRE Zeichenreihe 
DUP * (Zeichreihe,n) 

INSERT * ("Einzusetz. String","Äußer.String",p) 
INST * ("überschr.String","Alter String",p) 
PLACE * ("gesuchter String",Zeichenreihe) 

USE Zeichereihe,Zeichenreihe 


Befehl für Zahlen: 

$ * Hexzahl (4-stellig) 

% * Binärzahl (8-stellig) 

DIV * (A,B) 

EXOR * (A,B) 

FRAC * U/B) 

MOD * (A,B) 


BiIdschirnsteuerung 

AT * : PRINT AT(SpaIte,ZeiIe)Zeichenreihe 

BCKGNDS Farbe 1,Farbe 2,Farbe 3,Farbe 4 
BFLASH Geschwindigkeit,Farbe 1,Farbe 2 
BFLASH 0 

COLOUR Rahmenfarbe,Hinterqrundfarbe 

COPY 

CSET 0, 1, 2 
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DOWNB 

DOWNW 

FCHR 

FCOL 

FLASH 

FILL 

FLASH 

HRDCPY 

INV 

LEFTB 

LEFTW 

MEM 

MOVE 

NRM 

OFF 

RIGHTB 

RIGHTW 

SCRLD 

SCRSV 

UPB 

UPW 


erste Z.,erste Sp.,letzte Z.,letzte Sp. 
erste Z.,erste Sp.,letzte Z.,letzte Sp. 

Zeile,Spalte,Spaltenzahl,Zeilenzahl,Code 
Zeile,Spalte,SpaItenzah1,Zeilenzahl,Farbe 
Farbe,Geschwindigkeit 

Zeile,Spalte,SpaItenzah1,Zeilenzahl,Code,Farbe 
Farbe,Geschwindigkeit 

Zeile,Spalte,SpaItenzah1,Zeilenzah1 
erste Z.,erste Sp.,letzte Z.,letzte Sp. 
erste Z. ,erste Sp.,letzte Z.,letzte Sp. 

Zeile,SpaIte,SpaItenz.,Zeilenz.,ab Zei.,ab Spal. 


erste Z. ,erste Sp.,letzte Z.,letzte Sp. 
erste Z.,erste Sp.,letzte Z.,letzte Sp. 

2.8.2, "Name" oder 1,1,1,"Name“ 

2.8.2, ■Name,s,w' oder 1,1,1,'Name’ 
erste Z.,erste Sp.,letzte Z.,letzte Sp. 
erste Z.,erste Sp.,letzte Z.,letzte Sp. 


Befehle für Llght-Pen, Ooy-Stick und Paddle 

30Y * - 

PENX * - 

PENY * - 

POT * (0),(1) 


Sonstige Befehle 

DESIGN 2 (oder 3),Speicheranfangsadresse 
DIR ’$Zeichenreihe 

DISK 'Anweisungen 

FETCH ’KontrolItaste',Anzahl Zeichen,Variable 

INKEY * - 

LIN * - 

MEM 

PAUSE Zeit in Sekunden 

RESET Zeilennummer 
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Raum für Ihre Notizen 



Anhang 6 : Befehlsübersicht nit Fundstellen 
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CGOTO ! Unbedingeter Sprung ! 10 ! 76,183 

! einer Bildschirmzeile ! ! 

CHAR ! Zeichen in Grafik-Bildschirm ! 39 ! 24,51,203 

CHECK ! Kollision abfragen ! 54 ! 26,91,162 
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END PROC ! Ende einer Routine, ähnlich RETURN ! 59 ! 21,192 

ENVELOPE ! Hüllkurve einstellen ! 68 ! 115,182 

ERRLN ! Zeile, wo ein Fehler auftritt ! 63 ! 21,163 

ERRN ! Fehlernummer ! 63 ! 21,163 

EXEC ! Unterprogrammaufruf für Routinen die mit ! ! 
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Anhang 7 : RE-SECURE 


62000 R=2049 
62010 LOOP 

62020 VP=PEEK fi > +256iKPEEK C fl+1) 

62030 EX IT IF VPe=0 

62040 IFPEEK < fl+4 > =0THENPOKER+4.100:PÜKER+5.65 
62050 R=VP 
62060 ENII LOOP 
62070 END 
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DasCommodore 64-Biich 

Dan«! Ca Ein Leitfaden 
DQim durch Simoifs BASIC 


Dieses Buch soll allen, die sich mit Simon’s Ba¬ 
sic beschäftigen, eine Hilfe sein. Sowohl für 
den Anfänger, der die Basic-Unterstützung nur 
zur Vereinfachung bei der eigenen Programm¬ 
erstellung heranzieht, wie auch für den Profi, 
der Simon’s Basic ändern möchte. 

Entgegen dem Handbuch wurde eine andere 
Aufteilung gewählt. Zunächst werden alle Be¬ 
fehle kurz besprochen, wobei auf Besonderhei¬ 
ten, die nicht im Handbuch stehen, hingewie¬ 
sen wird. Auch werden die Einsatzmöglichkei¬ 
ten der Befehle eingehend beschrieben. In ei¬ 
nem weiteren Teil werden die am häufigsten 
gebrauchten Befehle aus Simon’s Basic an¬ 
hand ausführlicher Beispiele näher erläutert 
(Grafik, Sprites, Musik), wobei die zahlreichen 
Abbildungen besonders die Grafikprogramme 
verdeutlichen sollen. Wußten Sie schon, daß 16 


Farben gleichzeitig am Bildschirm dargestellt 
werden können? Den Abschluß bildet das kom¬ 
mentierte Assembler-Listing. Hingewiesen sei 
noch auf die Befehlsübersichten im Anhang, 
die Ihnen sicherlich gut als Nachschlagwerk 
dieneh. 

Auch die Bände 1 und 3 dieser Buchreihe be¬ 
schäftigen sich zum Teil mit Basic-Erweiterun- 
gen, womit Sie gute Vergleichsmöglichkeiten 
über verschiedene Vorgehensweisen erhalten. 
Band 4 — Assembler / Disassembler — bietet 
die Grundlage für das kommentierte Assem¬ 
bler-Listing. In den Bänden 2 und 6 finden Sie 
etwas zur Entspannung: Spiele — Spiele — 
Spiele. Band 7 ist für Profis: Tips und Tricks wie 
zum Beispiel ein ausführliches Musikpro¬ 
gramm mit grafisch dargestellten Noten. 
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